0 TK-LEMBRANDO contem 33 programas, 
amplamente comentados e que Ihe trarao horas de 
entretenimento. 




Sao programas que permitem que voce, no seu 
TK-85, teste a sua memoria, o seu senso 
perceptivo, a sua destreza, a sua sorte e ate Ihe e 
indicado uma dieta adequada. 

Ao adquirir esse livro voce tera oportunidade de 
melhorar sua capacidade de programagao na 
medida que os programas, com suas devidas 
instrugoes, forem entrando no TK-85. 

Em muitos casos pede-se que voce incremente os 
programas e, entao, surge a oportunidade para 
exibir a sua criatividade... 
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APRESENTAgAO 


Quando a primeira maquina Sinclair foi lan 
gada na nietade de 1982 , uraa barreira foi quebrada 
na area da Infomatica. Pela primeira vez um com- 
putador "moderadamente" poderoso era vendido na In- 
glaterra e nos Estados Unidos por menos de 100 dola 
res . 

Devido a esta condigao basica — equipamen- 
to extremamente barato — os computadores atingiram 
a maioria da populagao,incluindo muitos estudantes. 

So nos Estados Unidos ja foram comerciali- 
zadas mais de 1 railhao dessas maquinas e um numero 
aproximadamente igual ja foi vendido na Europa. 

No Brasil nao temos dados precisos sobre 
a produgao, porem sabemos que a Microdigital traba- 
lha a pleno vapor sera ser atingida pela crise, de- 
senvolvendo, entre outros, os parentes bem proximos 
da linha Sinclair, ou seja, os micros TK-82,83,85* 

Nesta pequena colegao de programas a refe¬ 
renda basica sera ao TK-85. 

A tecnologia original foi desenvolvida na 
Inglaterra pelo extraordinario Clive Sinclair, que 
em empreendimentos anteriores foi a bancarrota, mas 
no projeto do micro obteve um sucesso extraordina¬ 


ry. 



Como consequencia do sucesso de vendas no 
Brasil do TK-85 , apesar de algumas de suas limita- 
goes, como por exemplo a falta de uma impressora e 
de alguns comandos do BASIC como READ, DATA, RESTORE 
etc., surgiu urn grande numero de usuarios. 

g entretanto um grave erro, como diz Char 
les Ryan no seu artigo "0 Volkswagen dos pequenos 
sisteraas", que saiu no primeiro numero da revista 
Bits (outubro de 1983), atribuir o sucesso do TK-85 
e similares apenas ao prego conveniente do produto. 

Um fator importante que deve ser pesado no 
fenomeno Sinclair e que ele foi o primeiro micro na 
sua faixa de prego que estava dirigido diretamente 
ao usuario nao especializado, o qual podena ter a 
maquina no seu lar acoplada a um aparelho de TV co¬ 
mum e tendo condigoes de opera-l'a a qualquer ins- 
tante. 

A seguir surgiu a possibi1idade da expan- 
sao da memSria RAM, a factibilidade de criar e gra- 
var em fita arquivos de dados separadamente do pro- 
grama e esperamos a partir de 1984 a possibilidade 
de conectar uma impressora barata ao TK-85. 

0 TK-85 tern uma grande utilidade no lazer, 
aceitando programas com jogos de emogao que exigem 
reflexos rapidos, habilidade manual e obviamente 
raciocinio. Esta ea fungao do livro TK-Dive rtindo. 

No TK-85 tarobem podemos desenvolver progra 
mas didaticos que servem inclusive de auto-instru- 
? So. Alias, esta e a finalidade basica do TK-Lem - 

b rand o . 

0 TK-85 nao deixa entretanto de ser util 
no dia-a-dia dos calculos caseiros, de escritorio 
ou da escola. Foi com essa intengao que escrevemos 
o TK-Calculando. 


Nesta colegao de programas a preocupagao 
foi realmente nao termos rauitas instrugoes em cada 
programs, economizando dessa forma memoria e tempo 
de digitagao. 

Nao achamos tambSm que e uma simples cole- 
tanea de "joguinhos" ou de aplicagoes um pouco mais 
serias, visto que em quase todos os programas demos 
indicagoes de eventuais 6 uteis alteragoes e em al¬ 
guns casos fazemos comentarios ate exaustivos,porem 
em todos indicamos a finalidade do programa e suge- 
rimos ate uma aplicaqao numerics onde ela convier. 

Acreditamos que a colegao destes tres li- 
vros representa uma forma bem barata de adquirir 
software , embora nao seja esta a utilidade mais im¬ 
portante . 

Pode ter certeza o(a) caro(a) leitor(a)que 
a digitaqao etapa por etapa, isto e,linha por linha 
de um programa, acaba mostrando a voce fundamentais 
truques de programagao, e existe uma absorgao de co 
nhecimento que se nao e por osmose pode ser por "vi 
diose". 

A1ias,ninguem consegue ser um grande joga- 
dor se nao treinar muito e copiar um pouco o estilo 
daqueles que ja jogam bem. 

£ muito dificil ser um grande escritor sem 
ter sido um paciente leitor de muitos livros, 

Nao da portanto para ser um bom programa— 
dor sem antes ter visto muitos programas funciona- 
rem e bem. 

A colegao complete tern 100 programas e por 
tanto o material e bastante farto e diversificado. 

Claro que o passo seguinte seria ler um li 
vro do tipo Linguagem BASIC ou BASIC Sem Segredos, 



editados tambem pela Livraria Nobel, para comple- 
mentagao ou eliminaqao de qualquer duvida sobre os 
diversos coraandos do BASIC. 

De uma coisa todos nos da familia Mirshawka 
estamos convictos: os micros da Microdigital da se- 
rie TK e tecnologia Nacional sao equipamentos se- 
rios e nao brinquedos como pretendem inculcar al- 
guns menos informados na cabeqa dos "computamania- 
cos . 

Todos muitos em breve serao "coraputamanla- 
cos” e o TK-85 pode ser definido como o "volkscom- 
puter", ou seja, o micro do povo, assim como o Volks 
wagen ou talvez o Fi'at, aqui no Brasil, sejam os au 
tomoveis do povo. 

A tarefa de escrever programas para um mi¬ 
cro nao e muito dificil. Preste portanto muita aten 
qao nas sugestoes, nas mod ificaqoes e nos diversos 
truques indicados nos 100 programas e em breve voce 
estara tambem programando os seus jogos ou entao 
resolvendo os seus problemas de Matematica, Fisica, 
Qulmica e quern sabe ate de Finangas e de Engenha- 
ri a. 

Seja bem-vindo ao mundo do TK-85 e muitas 
felicidades. 

Os autores, ou seja, 
a familia Mirshawka, 
unida entre outras 
coisas pelo TK. 

(1) TK-82, TK-Q3 e TK-85 si© roarcas registradas da Microdigital Eletro- 
nica Ltda. 
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0 TECLADO DO SEU TK-85 



A primeira vista o teclado do TK-85 pode 
ate parecer complicado. 

£ nosso mister fazer com que voce se tran 
forme inicialmente em um eximio "pianista" neste t 
clado conhecendo "as regras",as suas teclas e o que 
e fundamental,a funqao de cada uma. 

Olhe bem para as teclas. 

Olhou? 

Bem, verificou que temos quatro linhas de 

teclas. 

Na linha de topo estao os numeros e nas te 
clas restantes estao as letras do alfabeto parecen- 
do muito com o que ocorre em uma maquina de escre- 
ver comum. 

Entretanto algumas das teclas podem ter-a 
sua funqao tomada erradamente ou seja podem ser tro 
cadas. 

Seja portanto cuidadoso. 

A letra "0" e o numero zero "0" nao devem 
ser confundidos. 

£ esta a razao pela qual o seu zero apare- 
cera cortado "0". 

Da mesma forma e terrivel a confusao entre 
a letra M x" e o numero 1. 


I (D ten 
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Isto trara problemas e confusoes aparente 
mente nao identificaveis nos seus programas 

Boa parte do tempo as palavras que voce ira 
precisar serao obtidas num sensacional "zas-tras" 
pressionando'Se apenas uma tecla. 

Isto fara com que voce economize muito ten 
po de dig£ta$ao, porera pode causar problemas tam- 
bem... 

Caso voce esqueqa isto e bata letra por le 
tra as palavras que aparecem nas teclas, palavras 
estas que correspondent a comandos,o seu TK-85, pode 
ra e ficara confuso a tal ponto que se negara a a 
ceitar a linha de instruqao assim teclada. 

Em alguns programas que aparecem no TK-Di- 
vertindo colocamos todas as palavras chave que se 
obtem pressionando apenas uma tecla dentro de um re 
tangulo para que voce esclarecido(a) leitor(a) nao 
esqueqa disto. 

Um exemplo e o comando 
£ muito facil cometer erros. 


[PRINT . 


Quern nao os coraete... 

Bem os er'ros aqui sao de digitaqao e e re- 


lativamente facil apaga-los ou seja borracha-los 
usando duas teclas. 



A 1? tecla 

e IsHIFt! e ela sera util 

em 

muitas 

coisas. 




nha. 

Ela esta no 

canto da esquerda 

da ultima 

li 


Esta tecla 

sera muito usada e 

voce deve 


pressiona-la com os dedos da mao esquerda. 


Pressione [SHIFT} e mantenha-a assim abai- 
xada enquanto voce aciona [ RUB 0UT_Ja qual esta na te 
cla que contSm o 0 (zero). 




A 


operagao voce conseguira limpar 
letras ou palavras que estao an — 

0 CURSOR 


Com esta 
ou seja apagar as 
tes do cursor. 


0 cursor e muito importante porque ele nos 
informa em que posigao da tela nos encontramos no 
momento e o que o micro ira imprimir quando voce 
pressionar uma tecla. 

Existem quatro letras diferentes que podem 
aparecer dentro de uma casela ou quadradinho preto. 

Dessa forma teremos: 



Para numeros de linha e palavras chave que aparecem 
acima da tecla 

Para letras e numeros 


Para fungoes (palavras chave que aparecem abaixo da 
tecla ) 

Para graficos (letras brancas sobre fundo preto e 
alguns caracteres graficos especiais que aparecem 
coloridos com azul). 


i NEWLINE 1 Sabemos que NEWLINE quer dizer linha no 
va porero vamos escrever tudo junto para 
dar enfase que e uma tecla unica para 
entrar com uma instrugao. 

Esta e uma tecla muito importante. 

Quando voce pressiona esta tecla e mais ou 
menos a mesma coisa que dizer-lhe "faga aquilo que 
lhe mandei" . 


Aqui vale o que ja disse ha muito tempo a 
Lady Lovelace que pode ser rotulada como a primeira 
programadora (Charles Babbage que o diga...): M o com 
putador pode fazer qualquer coisa que saibamos ex- 
p licar-lhe como fazer". 
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Note bem, ate apertar a tecla NEWLINE voce 
pode ser voluvel e mudar de ideia que o seu TK—85 
nao ira se importar com o que voce esta lhe pergun 
tando. 

Depois que voce apertou o NEWLINE bau,bau, 
bau, Zezefredo ou entao adeus Ronilda... 

fRUNl 

Quando voce ja embutiu todo o seu programa 
dentro do TK-85 voce deve informar-lhe para que exe 
cute o mesmo. 

Para fazer isto acione a tecla [RUN J e en¬ 
tao aperte a tecla 1 NEWLINE j para confirmar. 



Esta tecla e muito util quando queremos pa 
rar o programa meio na "forga bruta" ... 


BREAK 



I NEW I 

Voce encontra esta palavra-chave acima da 

letra A. 

I NEW I e usada para limpar ou seja apagar 
qualquer programa remanescente e estar apto para um 
novo programa. 

Se .vote apertar [NEW j entao 1 NEWLINE | os 
seus programas anteriores irao para o espago sera es 
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tarem em orbita ou seja jamais voltarao.., 


0 comando [LIST | esta na tecla |K [ . 

Aperte o [LIST | e entao o [ NEWLINE ) e o 
TK-85 imprimira o seu programa na tela comegando na 
1? linha. 

E frequente, nao ser suficiente o espago 
todo de uma tela para que contenha um programa com- 
pleto. 

Para ver a parte do programa que lhe inte- 
ressar,pressione (LIST 1 e entao tecle o numero da 
linha,no qual esta interessado antes de apertar o 
[ NEWLINE~1 . 

0 seu TK-85 imprimira o programa comegando 
na linha cujo numero foi indicado no (LIST ] . 


0 comando [EDIT ] (de edigao) esta na tecla 
[1 | e caso voce queira editar uma linha,por exemplo 
a linha 50,deve proceder da seguinte forma: acionar 
[LIST 1 50 e so ai pressionar o [ NEWLINE [ 

Depois destas agoes pressione 

[SHIFT][EDIT ] e uma copia da linha 50 aparecera 
na parte de baixo. 

Voce pode agora usar [SHIFTj e as t e c 1 a s f 5 ] 
e 8 para deslocar o cursor ao longo da linha. 

Voce estimado(a) leitor(a) pode acrescen- 
tar novos caracteres ou apagar aqueles que sao in- 
desej aveis. 
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Voce pode inclusive mudar o numero da sua 


linha. 


Quando a linha estiver correta aperte 
[ NEWLINE ) e entao a nova versao da linha sera colo- 
cada no programa -no lugar da velha. 

0 SISTEMA " COLORIDO " DO SEU TK-85 

No teclado do seu TK-85 voce vera quatro 
cores: preta, branch, amarela e a azul. 

fi bom se acostumar a estas cores para es- 
crever os programas e para que seja mais facil en- 
tende-los (as vezes). 


[ PLOT [ Esta escrito em branco e aparece em cima 
da letra g) . 

Basta apertar esta tecla no modo K e vo¬ 
ce tera o PLOT. 

0- A letra M V" aparece em branco. 

Basta apertar esta tecla e voce tera V 
desde que voce esteja no modo L. 

[ STOP [ —► Como se ve o STOP esta escrito na cor 
amarela no seu TK-85. 

Tudo que estiver na cor amarela para po- 
der entrar dentro do TK-85 precisa antes 
ter apertada a tecla SHIFT (amarela 
por sinal III) 

\ SIN | —»> A fungao s'eno esta escrita em branco e 
aparece na parte de baixo da tecla fQ). 

Para entrar com a mesma voce deve apertar 

a tecla |SHIFT| e mante-la abaixada ate apertar a 

tecla [ NEWLINE | que aciraa de si tem escrito em bran 

co 1 functionI . 

Tire o seu "lindo dedinho" da tecla (SHIFT | 
e eis que surge a letra (f] dentro do cursor Q . 
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Aperte agora a tecla g) 

Great surprise!!! 

Aparecera na tela [ SIN 1 

Esta portanto e a forma de entrar com to- 
das as fungoes que estao escritas em branco na par¬ 
te de baixo das teclas e exigem que o cursor esteja 
no modo EUNCTION Q . 

Podemos escrever em branco dentro de qua- 
drados negrose para tanto precisamos entrar no modo 
grafico . 

Para isto e necessario apertar a tecla 
|SHIPT| e mante-la abaixada. 

Ache agora a tecla [9] e aperte a mesma 
(aperte mesmo e nao pense que o seu micro pode em 
algum momento ter cocegas,..) 

0 cursor mudara agora para a forma Q . 

Voce tem agora uraa escolha. 

Pode por exemplo manter pressionada a te¬ 
cla |SHIFTl en quanto voce aperta a tecla £b) e tera 
como resultado a saxda de0 

Esta impressao vai ser muito util princi- 
palmente no volume I desta serie ou seja no TK-Di- 
vertindo. 

Voce tem uma outra possibi1idade ou seja 
tirar o seu dedo da tecla [SHIFT] antes de apertar 
a tecla [B] e entao com essa sequencia de "acionamen 
tos" obter-se-a um B "branco" em um fundo preto ou 
seja o B no modo graficoQ . 

Se voce mantiver pressionada a tecla |SHIFT| 
enquanto estiver em modo grafico, com algumas te¬ 
clas como 51 , CD , S) etc.... ® , (G) ,® etc. obtera pe- 

quenos slmbolos graficos mostrados no canto infe¬ 
rior da direita e que estao representados em azul. 
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Alias nao deixe de notar que o GRAPHICS tarn 
bem esta escrito em azul. 

Abaixo vao detalhados todos os slmbolos 
graficos disponxveis no seu TK-85. 


Simbolo 

Modo 

Teclas 

Sxmbolo 

Modo 

Tedlas 

□ 

0 orH 

SPACE 

■ 

a 

SPACE 

D 

s 

SHIFT-1 

a 

a 

SHIFT-Q 

B 

a 

SHIFT-2 

E 

a 

SHIFT-W 

B 

a 

SHIFT-7 

H 

a 

SHIFT-6 

E 

a 

SHIFT-4 

9 

a 

SHIFT-R 

n 

a 

SHIFT-5 

a 

a 

SHIFT-8 

SB 

a 

SHIFT-T 

s 

a 

SHIFT-Y 

p 

a 

SH1FT-E 

a 

a 

SHIFT-3 

M 

a 

SHIFT-A 

M 

a 

SHIFT-H 


a 

SHIFT-D 

5 

a 

SHIFT-G 

0 

a 

SHIFT-S 

m 

a 

SHIFT-F 


Por favor observe que nesta lista cada sim 
bolo esta "ernoldurado". dentro de um quadrado tendo 
os seus quatro cantos evidentemente destacados o que 
as vezes nao e muito claro na tela. 

Assim por exemplo quando voce teclar o pri 
meiro sxmbolo, evidentemente nao tera um quadrado 
"branco" ou ainda uma caixa vazia mas sim um espaqo 
em branco. 
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Bern, com a digita^ao dos programas voce en 
tender! isto melhor!!! 

Insistindo mais uma vez, nao esqueqa que 
voce obtem letras e numeros em video inverso atra- 
ves do modo Q 

Todos os simbolos matematicos sao tambem 
acessados de uma forma bem simples porem eles es- 
tao em amarelo que alias e tambem a cor da tecla 
1 SHIFTj . 

Portanto aperte [SHIFT) e depois 1< >1 (te 

cla T) que significa "nao igual a" ou "diferente de" 
ou 

I> (tecla Y) que significa "maior ou igual a”, 

(tecla H) que significa "elevado a" 

CED (tecla L) que significa "atribua a vari 
vel que esta a esquerda o valor que est 
a direita" 

CZD (tecla N) que significa "menor que" etc. 

OBSERVAQ&O IMPORTANTE - 0.1. 

Neste livro a unica forma de representar 
aspas esta localizada na tecla P. 

Em nenhum dos nossos programas usaremos as 
aspas que estao localizadas na tecla Q. 

Comentaremos isto com mais detalhes no pro 
grama 9 - "ENTRANDO EM FRIA". 



\ 
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2 - indicaqKo resumida das palavras-crave EM 

ORDEM ALFABtTICA QUE PODEM SER ACESSA DAS 
NO TK-85 COM UMA ONICA "TEC LAD A ,f DESDE 


QUE 

jA se 

ESTEJA NO 

MODO CORRETO 

Palavra 
chave 

Modo 

Tecla 

Significado 

ABS 

B 

G 

valor absoluto 

ACS 

B 

S 

arco cosseno 

AND 

(3 ou 0 

SHIFT~2 

juntando condiqoes 

ASN 

S 

A 

arco seno 

AT 

B 

C 

especifica a posigao de impres 
sao 

ATN 

a 

D 

arco tangente 

CHR$ 

a 

U 

numero para caractere 

CLEAR 

B 

X 

limpa variaveis e tela 

CLS 

0 

V 

limpa tela 

CODE 

a 

I 

de caractere para numero 

CONT 

s 

C 

continua a execuqao 

COPY 

B 

z 

copia a tela para a impressora 

COS 

a 

w 

cosseno 

DIM 

B 

D 

dimensoes de conjuntos numeri- 
cos e alfabeticos 

EXP 

a 

X 

exponencial 

FAST 

B ou B 

SHIFT-F 

modo rapido 

FOR 

B 

F 

ajusta para urn laqo 
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Palavra 

chave 

Modo 

Tecla 

Significado 

GOSUB 

B 

H 

desvia para subrotina 

GOTO 

b 

G 

desvio incondicional 

IF 

B 

U 

testa condigao 

INKEY$ 

B 

B 

le o teclado 

INPUT 

B 

I 

aceita dados 

INT 

B 

R 

volta apenas a parte inteira 

LEN 

B 

K 

comprimento da variavel alfanu 
merica (STRING) 

LET 

B 

L 

atribuindo valores 

LIST 

B 

K 

lista o programs 

LLIST 

a ouis 

SHIFT-G 

lista na impressora 

LN 

6 

Z 

logaritmo natural 

LOAD 

B 

J 

carrega o programs do cassete 

LPRINT 

b a 

SHIFT-S 

imprime via impressora 

NEW 

B 

A 

limpa a memoria 

NEXT 

B 

N 

indica fim do lago 

NOT 

B 

N 

negagao 

OR 

B ouB 

SHIFT-W 

duas ou mais condigoes 

PAUSE 

B 

M 

da uma pausa no TK-85 

PEEK 

B 

0 

mostra a memoria em um ponto 
especifico 

PI 

B 

M 

valor de tt 

PLOT 

B 

Q 

coloca um pixel na tela 

POKE 

B 

0 

coloca dados em uma posigao es 
pecifica da memoria 

PRINT 

B 

p 

imprime algo 


Palavra 

chave 

Modo 

Tecla 

Significado 

RAND 

B 

T 

indica a posigao inicial do RND 

REM 

B 

E 

observagoes ou comentarios 

RETURN 

B 

Y 

volta logo apos a chamada do 
GOSUB 

END 

B 

T 

fungao aleatoria 

RUN 

B 

R 

executa um programs 

SAVE 

B 

S 

guards o programs em fita 

SCROLL 

B 

B 

gira uma linha para cima 

SGN 

B 

F 

sinal de um numero 

SIN 

B 

Q 

seno 

SLOW 

B ou B 

SHIFT-D 

modo lento 

SQR 

B 

H 

raiz quadrada 

STEP 

B ou B 

SHIFT-E 

incremento do par FOR/NEXT 

STOP 

B ou B 

SHIFT-A 

para a execugao 

STR$ 

B 

Y 

valores numericos para alfanu- 
mericos (STRINGs) 

TAB 

B 

P 

tabulagao 

TAN 

B 

E 

tangente 

THEN 

B ou B 

SHIFT-3 

resultante de uma condigao ver 
dadeira 

TO 

B oo B 

SHIFT-4 

especifica o limite 

UNPLOT 

B 

W 

apaga um pixel 

USR 

B 

L 

codigo de maquina dentro do 
BASIC 

VAL 

B 

J 

converte caracteres numericos 
para os seus valores numericos 
atuais 
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Z - PRIMEIROS SOCORROS 



5 


Voce necessita entrar 
do modo grafico? 

[VA PARA 6l_ 


Voce nao pode editar 
(EDIT) uma linha? 


Voce tem mais algum 
problema? 


[T| Pressione a teclia [NEWLINE~1 

Veja se voce nao encontra o seu cursor com o 
aspectoQ !!!?? Caso isto acontega e o seu TK-85 
que esta lhe indicando onde provavelmente esta o 


erro nesta 1inha. 

Veja se voce nao esqueceu um ou GD ou m«c. 

~VA AGORA PARA 3 

0 Tecle o [SHIFTj e. mant enha ab aixada enquan- 

- EDIT] 

to voce aperta ^ 

Se uma linha de programs substituir o "lixo" que 
estava escrito aperte ( NEWLINE 1 para continuar. 


a Tecle SHIFT e mantenha abaixada a mesma. 


Utilize as teclas 


• .UJ UJ p 

o cursor exatamente a direita do erro. 


para mover 


Mantenha abaixada a tecla [SHIFT! e aperte 
RUBOUT~] para apagar. Solte o [SHIFT] e bata os 
simbolos corretos. Aperte [ NEWLINE ). 
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0 Voce precisa editar (EDIT) a linha. 

Ache o Q na lista do programa. 

Mova-o ate a linha que deve ser editada man 
tendo pressionada a tecla |SHIFT| e apertando 

6* 1 ou 


EDIT 


voce obtem a copia da li 


Com jSHIFTl e 
nha na parte de baixo da tela. VA PARA 3 


5| Nao se preocupe com o que esta sumindo da te 
la. Tudo esta indo para a memoria do seu TK-85. 
Nenhum dos programas que e dado neste livro e su- 
ficientemente grande para lotar a memoria do seu 
TK-85. 

Continue tranquilo, teclando o seu programa, pois 
voce nao perdeu nada. 


6 Tecle |SHIFT| e 

GRAPHICS 

9 

para fazer o cur 

sor sair do modo letra Q para o modo grafico 

0 . 

Voce pode precisar que a tecla 

jSHIFT] fique abai- 

xada para que possa imprimir alguns caracteres in 

dicados em amarelo no 

seu TK-85 

• 

Pare de apertar a tecla [SHIFT| 

e aperte)NEWLINE | 

para voltar ao modo letra Q . 




i 


CLS 


(T| Aperte | y"7~| e ( NEWLINEl . 


Mantenha a tecla [SHIFT) abaixada enquanto 
voce aperta 


EDIT 

r 

1_ 

L 


VA PARA 3 


] 



Voce ja leu alguma coisa sobre "isto e o 
TK-85 pode ou nao fazer" e agora voce vai ler 
resta para "coroo fazer para conseguir que o 
execute-o". 

£ obvio que estaraos nos referindo a um pro 
e os resultados podem ser totalmente diversos 
es que se estava esperando. 


T 

que o 
o que 
TK-85 


grama 
daque1 


Qua is podem ser as razoes? 


Resposta 


0 programa trabalha bem e inesperadamente algo 
ocorre de errado. 

Esse erro, deve ser provavelmente devido a um 
trecho do programa que nao e usado toda.s as ve 
zes. Este pode ser um dos possiveis problemas 
que serao abordados nos itens de I a XIV mais 
especificamente IV, V, VII e VIII. 


0 programa e executado,porem os resultados sao 
"levemente" diferentes ou ate raesmo errados. 
Isto, provavelmente e devido a um pequeno erro 
comumente cometido ao informar ao TK-85 onde 
ele deve imprimir alguma coisa na tela. 

Olhe com atengao os "possiveis galhos"III,VI e 
mesmo I. 
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4 - POSStVEIS "MANCADAS SUAS" POIS 0 TK-85 NAO 
MANCA, VISTO QUE NAO TEM PEBNAS ... 


Se voce seguir as instrugoes que estao nos 
diversos programas da forma que estao escritos ja¬ 
mais tera algum dos problemas que enumeraremos a se 
guir . 

Em tempo, e obvio que os autores nao sao 
infaliveis e alem do que podem surgir tambem alguns 
erros na composigao. Passamos a culpa para o datilo 
grafo . . . 

Portanto perdoadas as eventuais mancadas 
dos autores e como todo mundo comete erros de tempo 
em tempo, vejamos o que fazer se os programas nao 
apresentarem o que deles se espera. 

Ai vao algumas receitas ou seja alguns "re 
medios" para as suas mancadas caro(a) leitor(a). 


I » Voce pensou que bateu a linha 70, porem es- 
queceu do 0 (zero) e bateu a linha 7 por engano. 

0 TK-85 Ihe da uma indicagao de erro do tipo 
2/7 pois nao Ihe foi dito que era para esquecer es 
te digito e a linha nao esta relacionada com o res- 
to do programs. 


A cura para este mal 6 editar (EDIT) a linha 
7 e acrescentar o 0 e entao apertar 1 NEWLINE ] para 
entrar a linha com numero de linha correto. 


Apague (ou seja de um M RUBOUT ,t ) a linha 7 te 
clando o 7 e entao apos isto teclando] NEWLINE 1. 


II—► Voce pode ter pulado uma das linhas por enga 


0 TK-85 Ihe da um relatorio de erro 2/ "nume 
ro de linha" pois ele esta procurando achar algo que 
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ele precisa da l,inha omitida. _ . 

Onica solugSo - Bater a linha que fol »i«i 

da. 

1XI _, VocS pode ter teclado uma linha erradamen- 
,e porem nSo o suf icientemente errada para que ° 

IK-85 impeqa a ascensSo (Undo nao? ! ! desta in 

ao programs). 

Voce poderia ter es'crito 

100 LET C = 13 

no Xugar de 

100 LET V = 13 

porque as teclas C e V est'ao be, proxies u.a da on 

Possivel forma de descobrir o "grilo" - Veri 
ficar linha per linha o programa principal e entao 

fazer a mudan^a. 

Esta 5 a soluqao por inspe 9 ao para nao dizer 
por visso ou seja revisSo total. 

IV __ Existe urn erro em uma parte do programa q 

nSo e usado a todo instante. 

Este erro por exemplo pode estar na linha 

a1guma instruqSo contadora on seja aqnela na qnal 

se acumulam os pontos de urn jogo. ^ 

Se a mensagem de erro tea a forma 2/ numero 

de linha" entSo rente os remedies de I ate III mdi 
cados ha pouco. 

V_* 0 codigo de erro 3 on B signifies qne um nG- 

mero nio 5 suficientemente bom on melhor, adeqnado 
para a tarefa qne se esta exigindo. 

Por exemplo 
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200 PRINT AT X,Y 

pode nao entrar ou melhor nao ser executada caso X 
ou Y sejam negativos ou X seja maior que 21 (so te- 
mos 22 linhas na tela) ou Y maior que 31 (so temos 
32 colunas na tela) . 

Note que as linhas sao numeradas 0,1,2,...21 
de ciraa para baixo e as colunas sao numeradas 0,1, 
2,...,31 da esquerda para a direita. 

0 problema pode tambem surgir em uma instru- 


9 ao como 


300 PRINT V$(K) se K 


deve ter 25 letras e nao existem mais que 18 letras 


em V$ . 

t evidente que o TK-85 nao ira ter condi- 

9 oes por exemplo de achar a vigesima quinta letra. 

Tome estimado(a) leitor(a) muito cuidado 

principalmente nos STRINGS (cadeias) que serao usa- 
* 

dos para simular um movimento na tela. 


Obeervagao importante - 0.1. 

Nao permita que o programa que esta entran 
do no seu TK-85 seja uma casa da bolaoha onde nada 
ee aaha ... 

Ai vai ser uma desgra 9 a para passar algum 

programa. 


VI—► Um numero extra pode ter sido acrescido a um 
GOTO ou a um GOSUB ou ainda pode ter sido esquecido 
algum numero. 

Dessa maneira o seu TK-85 fica um tanto quan 
to atordoado pois esta sendo mandado para algum lu- 
gar que nao pode ir ou esta sendo mandado para o lu 
gar errado. 
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Cora os humanos as vezes ocorre urn fato dife- 
rente ou seja raandam-se as pessoas para certos luga 

res e elas nao vao de forma alguma... 

A solugao para achar este tipo de erro e no- 
vamente a paciente e niponica verificagao lrnha por 
linha do programa todo. 

y 1 x r Erro 5/"nuoero de linha significa que 
la esta lotada e voce esta tentando imprimir 
da janela correspondents a uma tela. 

Caso isto ocorra voce deve olhar o seu 
do PRINT ou entao tentar resolver o problems 
comando CONT e depois NEWLINE. 

Vm—A mensagem de erro 4/"nGmero de linha" sign* 
fica que voce "estourou" a memSria RAM do^seu TK-85. 

Este fenomeno nao e tao rare porem naoocor 
r era nos programas deste livro a nSo ser que depois 
de algum tempo o(a) criativo(a) leitor(a) acrescen- 
te coisas tao originals por conta prSpria que ocor 
ra o esgotamento da memoria do seu TK-85. 

Os remedies podem ser: a) usar um programa 
com uma tela raenor fazendo econoraia nas raensagens 
e pr incipalment e nas observagSea (REMarks); b) lim 
par a tela com o LCLSj sempre que for possivel;^ c) 
a solugao "melhoral" ou seja expandir a memoria 
RAM (bora esta soluglo e a mais siraples mas tambem 
pode ser cara!!). 


a te- 
f ora 

coman 
com o 


IX __ E rro D/"numero de linha" significa que voce 

apertou a tecla fBREAKj . 


Rem&dio - Aperte o * depois o 


NEWLINE ]. 
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x —► A mensagem codificada corao 9/"numero de li¬ 
nha" significa que o seu TK-85 atingiu um comando 
STOP. 

Isto tambem pode ocorrer era vista de galhos 
do tipo I. 

XI— *’ A mensagem codificada 6/ "numero de linha" 
significa que existe um erro na aritmetica ou alge- 
brico (notou bicho na aritmeticaI!!) e o seu TK-85 
nao pode fazer aquilo que voce esta lhe mandando. 

XII— *' A mensagem codificada 7/ "numero de linha" 
significa que voce se esqueceu de alguma linha de 
programa com um STOP ou um GOTO e o seu TK-85 esta 
perdido cometendo enganos por voce programados em 
alguma subrotina. 

XIII— *0 programa pode entrar em um lago sem fim. 

Isto as vezes ate e desejavel. 

A unica maneira de sair desta situagao e apertando 
a tecla iBREAKl . 

Uma causa provavel pode ser alguma linha per 
dida de GOTO ou ainda numeros errados ou esquecidos 
nos comandos GOTO. 

XIV— * Perdeu-se o programa porque faltou luz devi- 
do a um defeito na rede da Eletropaulo durante um 
segundo!!!! 

Outro azar, teclou-se por descuido o (NEWl 

Solugao: "Sorria meu bem, sorria.. 

Conhece esta musical!! 

Pois e,voce deve entoa-la e comegar 
alegremente a teclar o programa todo de novo. 
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AliSs as vezes pode tambSm ocorrer uma lamen 
tavel desconexao de algunt fio da tomada ou ainda am 
querido parente chegar com urn sorvete para voce * 
distraidamente tropegar nutn fio deslxgando o siste 

ma. 

Agradega pelo sorvete, nao fale nada que nao 
estS no dicionario e ainda mais se perguntarem al¬ 
go diga, sou louco para digitar tudo pela segunda 

vez . 


5 - GUARDANDO 0 SEU PROGRAMA 

A digitagao de urn programa longo consome 
muito tempo. 

A1 em disso, toda vez que se tecla abre-se 
a possibilidade para que surjam novos erros. 

Contudo urn programa pode ser artnazenado em 
uma fita magnStica da mesma forma que vocS grava 
uma musica de sucesso quando essa lhe interessa, no 

seu gravador. 

Para "salvar" um programa depois que o mes 
no foi digitado e verificado no seu TK-85 tudo oque 
voc5 deve farer e teclar a palavra SAVE e deeidir 
entSo sobre o none para um particular programa. 

Para nao encucar a cabecinha do(a) querr- 
do(a) e criativo(a) leitor(a) ja colocamos no.es 
nos nossos programas. 

Alguns ate podem parecer longos mas a nos- 

so ver sao sugestivos. 

0 99 programa tern o nome de "ENTRANDO EM 


FRXA 
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cle 


Caso voce deseje gravar esse programa te- 
SAVE "ENTRANDO EM FRIA” 


Neste ponto voce deve colocar o seu grava¬ 
dor no mode "recorder" ou seja gravagao. 

Pressione agora a tecla (NEWLINE I e o pro¬ 
grama ou mais precisamente uma copia do seu progra- 
ma passara para a fita cassete visto que o seu pro¬ 
grama original ainda reside na memoria RAM do seu 
TK-85. 

Voce sabera que a gravagao esta completa 
quando aparecer o codigo de terraino da mesma 0/0 
no canto inferior da esquerda da sua tela. 

Agora voce ja pode desligar o seu grava¬ 
dor. 


6 - CARREGANDO UM PROGRAMA 

Com o intuito de carregar um programa de 
uma fita cassete para o seu TK-85 inicialmente te- 
cle i NEW| seguido por uma tecla [ NEWLINE 

Agora voce pode teclar por exemplo 

LOAD "ENTRANDO EM FRIA”' 

o qual ira buscar e carregar na memoria RAM do seu 
TK-85 o programa chamado "ENTRANDO EM FRIA" 

Tem-se tambem a alternativa 

LOAD"" 

o qual busca e carrega o primeiro programa completo 
que encontrar na fita. 
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Observagoes importantes - 0.1. 

1) Nao esquega de fazer uma anotagao precisa do no- 
me do programs que voce esta armazenando,incluin 
do quaisquer espagos era branco entre palavras que 
possam existir no none do mesmo. 

Caso voce quarde urn programa chamado "ENTRANDO EM 
FRIA" na fita e mais tarde queira carregar urn 
programa chamado "ENTftANDOEMFRIA" da mesma fi 
ta o seu TK-85 nao sera capaz de encontrar o pro 
gr ama. 

Que falta irao fazer os dois espaqos em branco 
perdidos!!?!!? 


2) Deve-se ter um gravador de "mono" nao o estereo 
para carregar ou para guardar programas. 

Caso o seu gravador de fxtas seja apenas estereo 
voce deve virar o controle do ’’balance (gostou 
dessa chapa?) ou todo para a esquerda ou todo pa 
ra a direita. 

Alera disso voce devera manter o controle do volu 
me um tanto quanto alto, talvez a 75% do volume 
maximo. 

Finalmente o controle do' tom deve estar na sua 
mais alta posigao. 

fi, o seu TK-85 se "embobina" um pouco com grava 
dor sofisticado pois o que ele quer e um grava 
dor simp1es... 


II. PROGRAMAS 



A maior parte das pessoas ja esta acostu- 
mada a exibigao de anuncios e noticias vendo as pa 
lavras se moverem. 

Nesse programa inicial voce aprendera co- 
mo produzir este tipo de exibigao na tela do .seu 
aparelho de T.V. ligado ao seu TK-35. 

Para comegar o programa responda a pergun 
ta 


QUAL g A SUA ESCOLHA? 


Tecle 0 (zero) e depois 



Quando o seu TK-85 lhe perguntar: 


QUAL E 0 NtfMERO DE VOLTAS? 
tec4.e por exemplo 4 seguido de urn NEWLINE . 

Voce vera inicialmente uma auto promogao 
do super-hiper sensacional TK-85 e do nome da co- 
autora do livro e do proprio livro dando algumas 


voltas 


ESTE E 0 TK-LEMBRANDO 
NILZA MARIA MIRSHAWKA 


0 numero de voltas sera exatamente igual 
a 4, porem voce pode fazer com que este numero se- 
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ja maior ou nunca pare entrando em um ’’LOOP” eter- 
no. 

Bern a! vai o programa "ANUNCIANDO" 

5 DIM W$ (32) 

6 DIM Z$ (32) 

10 PR INT "ENTREO COM O UM 0 ZEROQ 0 ) O P ARAO A OMEN SAGEM O FIXA' 1 

15 PRINT "ENTREOcOmOiOpARAOUMAOMENSAGEM0GEN£RICAOEM 0 

O duasOlinhas" 

20 PRINT "QUAL0E0 AO SUA 0ESC0LHA?" 

30 INPUT N 

40 IF N = 0 THEN GOTO 110 

50 PRINT "ENTRE OC0MOA OSUA OMENSAGEM" 

60 INPUT W$ 

65 INPUT Z$ 

70 LET L = LEN W$ 

75 LET M = LEN Z$ 

80 LET W$ (L+l TO 32) = "OOOOOOOOOOOOOOOOOOOO 

000000000000 ” 

90 let z$(M+l TO 32) = n OOOOOOOOOOOOOOOOOOOO 

000000000000" 

100 GOTO 120 

110 let w$ = "esteOeOoOtkOlembrando” 

115 LET z$ = "nilzaO maria O mirshawka" 

120 print "qualOEO oOnOmeroOdeOvoltas?" 

130 INPUT V 
135 CLS 

140 FOR 1=1 TO V 
150 FOR J=1 TO 32 
160 LET A$ = W$(l) 

170 LET W$(l TO 31) = W$(2 TO 32) 

180 LET W$(32) • A$ 

190 PRINT AT 10,0;W$ 

195 LET B$ = Z$(l) 
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200 LET Z$(l TO 31) = Z$(2 TO 32) 

205 LET Z$(32) = B$ 

210 PRINT AT 13,0; Z$ 

220 NEXT J 
230 NEXT I 
235 CLS 

240 PRINT "QUEROBRINCAROMAISO (S/N)?” 

250 INPUT R$ 

260 IF R$ = "S" THEN G OTO 10 
270 PRINT AT 20, 10; 

280 STOP 

Observagao impovtante 0,1. 

Neste programa e em alguns outros usare - 
mos 0 para representar o espago em branco. 

Quando isto for obvio, entao o desenho do 
quadradinho sera omitido. 

Cuidado que ter " " e ter ^ nao e a 
mesma coisa e ambas as condigoes serao usadas com 
significados diferentes nos programas que serao 
vistos adiante. 

Bern, agora que voce ja viu corao o progra¬ 
ma trabalha vamos para a parte divertida do mesmo, 

Se na pergunta "QUAL £ A SUA ESCOLHA voce 
teclar um "1" ou qualquer numero diferente de ze¬ 
ro (0), isto permitira que entre qualquer tipo de 
mensagem de sua escolba desde que eld sbqcl Tn&fiov 
que 32 earaateres. 

Essa mensagem sera mostrada tantas vezes 
quantas voce quiser e inclusive voce pode destaca- 
la escrevendo em fundo preto e com as letras em 
branco. 

Use para isto o jnodo GRAPHICS C 0 ) • 
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PONTOS DE INTERESSE DO PROGRAMA 

1) fi nas linhas de 70 a 90 que esta o interessante 
truque com o qual toma-se qualquer cadeia de ca 
racteres (variavel STRING) de comprimento menor 
que 32. 

2) fi nas linhas de 140 a 230 que esta o movimento 
e a impressao ou seja a exibiijao das mensagens 
em duas linhas distintas ou seja nas linhas 10 
e 13 da tela. 

3) Este programa pode ser uma subrotina de progra - 
mas nos quais voce quer dar destaque a uma res- 
posta com urn movimento na horizontal. 

Como a (o) admirada(o) leitora ja poude 
perceber entramos com duas linhas se movendo, po- 
rem, nao e diflcil fazer com que se movam tres ou 

mais (sem exagerar\I I)... 

Pode-se tambem mudar o sentido do movi¬ 
mento de algumas linhas assim como aumentar a velo 
cidade de movimento de algumas delas. 

Como e possivel fazer isto? 

No livro TK-Divertindo ,em urn certo exem- 
plo voce ira encontrar a resposta. 

Tenha tambem este livro e aproveite-o pa¬ 


ra o seu lazer . . . 


2. O ENCONTRO 




Nes e programa voce entra com as suas itii 
ciais ou da sua namorada(o) uma por vez e no ini- 
cio do programa (linhas 50 e 70). 

AI entao voce deve apertar o NEWLINE 
quanto quiser e vera formando-se na tela um lindo 
desenho com as suas iniciais. 

Vamos la execute o programa... 


10 LET A1 = 0 
20 LET M = 0 
30 LET T = 0 
40 LET B = 0 
50 INPUT 1$ 

60 LET A = CODE 1$ + 128 
70 INPUT N$ 

80 LET BI = CODE N$ + 128 
90 PRINT AT 20, 0; 

100 LET X = INT (RND*13) + 1 
110 LET Y = INT (RND*15) + 1 
120 LET Z = INT (RND*4) + 1 

130 IF Z = 1 THEN LET L = A 

140 IF Z = 1 THEN LET M = M+l 

150 IF Z = 2 THEN LET T = T+l 
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155 IF Z = 2 THEN LET L = B1 
160 IF Z>2 THEN LET L = 0 
170 LET V = 20 - X 
180 LET W = 32 - Y 
190 PRINT AT X-l, Y; CHR$ L 
200 PRINT AT V-l, Y; CHR$ L 
210 PRINT AT X-l, W; CHR$: L 
220 PRINT AT V-l, W; CHR$ L 
230 LET R$ = INKEY$ 

240 IF R$ = CHR$ 118 THEN GOTO 260 
250 GOTO 100 

260 PRINT CHR$ A; M, CHR$ B1 ; T 


Neste pequeno programa voce tera uma simu 
lagao de um tapete rolando na tela do video, cujo 
desenho e criado pelo mestre em tapegaria (eu dis- 
se tapegaria e nio feitigaria) que e o seu TK-85. 

De tempo em tempo o desenho do tapete mu 

da . 

Esta e uma linda demonstragao de para que 
serve o seu micro. 

Se voce gostou do "ANUNCIANDO". gostarS 
mais ainda deste programa: 

5 LET K = 0 
10 LET A = 2 
20 LET B = 10 
30 POKE 16418, B 
40 DIM A$ (B) 

50 FOR J = A TO B 

60 LET A$(J) = CHR$ (INT (RND*9) + A) 

70 NEXT J 
80 GOSUB 300 
90 FOR L = A TO B 
95 PRINT A$(L); 
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100 LET K = K + A/A 

110 IF K = B + B + B THEN GOSUB 300 

120 IF RND<-007 THEN RUN 

130 NEXT L 

140 GOTO 90 

300 SCROLL 

310 LET K=0 


£ bom isso para a 
memoria do seu 
TK-85? 


320 RETURN 


Este programs faz com que o seu TK-85 ge- 
re urn numero aleatorio entre 0 e 189. 

Voce deve advinhar esse numero no menor 
numero possxvel de tentativas. 

£ um pro grama-jogo e nele o TK-85 exibe 
sempre os limites inferior e o superior entre os 
quais se encontra o numero que voce deve advinhar. 

Inicialmente ele ira mostrar algo do tipo 

0< = N< = 189 

onde 0 (zero) e o extremo inferior e 189 e o extre 
mo superior. 

Para cada "chute" dado um "pontinho" ou 
seja um pixel e exibido na parte de baixo da sua 
tela. 

A medida que um numero e teclado, um tes¬ 
te e feito para se verificar se o numero escolhido 
pelo TK-85 e o mesmo que voce escolheu!!.' 

Caso o TK-85 tenha escolhido o lindo nume 
ro 13 e voce tenha escolhido inicialmente o 71, o 
TK-85 lhe mostrara os novos extremos da seguinte 
forma: 

0< = N< = 71 
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cm o que vocS £acilmente percebe que o seu "chu- 
te " foi muito alto e vocS deve agora escolhe 
numero menor digamos 7 (que o Sacha gosta tanto..). 
Saira uma mensagem do tipo 
7< = N< =71 

. novamente voce e alertado para escolher algo aci 
ma de 7 e abaixo de 71. 

Hum lance de muita sorte vocS tecla o 13 
e cco a sua advinha S ~ao eata correta sera ^rbrda 
uma mensagem diaendo quantas tentatrvas v ° 

(o que alias voc? jS sabia pelos P-ers exrbrdos) 
e o jogo termina com uma saida do tipo 

13 ==13*=13 

Est e fesultado fica na tela por alguns se 
gundos que e tnais ou metios o tempo 
contentamento por ter acertado e ai o 
lh e urn outro nGmero para uma proxrma partxda 

Note que o TK-85 nunca cansa e se voce 

. __ „ + a fpplar utd STOP e 

quiser parar bast a simples mente t - 

depots apertar o [NEWLINE 

Nunca e demais lembrar que ja apresen 

mos uma variante desae jogo no -BASIC Sem Segre- 
d0S "' At vai o programa "RANDOMICO” completo: 

10 LET T = 0 
20 LET R = INT (RND*190) 

30 LET 1=0 
40 LET S = 189 

50 PRINT AT 3.6; "ADVINHE 0 MEU NCMERO" 

60 PRINT AT U.8; I; "0< =OnO< -O”; S;' 00 
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70 INPUT N 
30 LET T=T+1 


90 FOR J = 1 TO T 

100 PLOT (T-l) *3+1,0 

110 NEXT J 

120 IF N=R THEN GOTO 160 


£ devido a esta instrugao 
que saem impressos os pi¬ 
xels "contadores" 


130 IF N <R AND N > I THEN LET I = N 


140 IF N >R AND N <S THEN LET S = N 


150 GOTO 60 

160 PRINT AT 14,3; "VOCEOaCERTOUOEM0";T;"0TENTATIVAS” 


170 LET I=R 


130 LET S=R 

190 PRINT AT 12,8;I;"0==0 M ;N;"0 = = 0";S; "00 " 
200 PAUSE 200 
210 CLS 
220 GOTO 10 


comentArios 

a) Na linha 20 gera-se um numero aleatorio entre 0 
e 189. 

b) Na linha 60 exibe-se o aviso para o "jogador"sa 
ber onde chutar. 

c) Na linha 70 entra o seu "super-chute" 

d) Linhas 80-110 com essas instrugoes pode-se im- 
primir o numero de pixeis na parte de baixo da 
tela indicando quantas tentativas ja foram fei- 
tas . 

e) Nas linhas 120-140 executam-se as comparagoes 
do seu chute com o numero aleatorio escolhido 
pelo seu TK-85. 

f) Linhas 160-190 atraves dessas instrugoes conse 
gue-se exibir o resultado certo quando o 
"chute" for correto. 


seu 





Aqui neste programa voce devera destruir 


oito galpoes inimigos que aparecerao na parte bai- 
xa da sua tela. 

Urn aviao, representado por um -pixel voa 
de um ao outro extremo da tela. 

Apertando a tecla "6" voce langa uma bom¬ 
ba . 


Voce deve tentar demolir todo o quartel 
inimigo e para tanto voce tern no seu aviao 18 bom 
bas . 


0 jogo para quando voce gastar toda a sua 
munigao ou entao quando voce nao tiver o que bom- 
bardear o que alias e obvio. 


10 PRINT AT 21,11; " 008080808080000" 

20 LET B » 0 

30 LET A = 0 

40 LET V = 1 

50 FOR X = 3 TO 55 

60 PLOT X, 26 

70 IF A = 1 THEN PLOT X, 26-V*V/l3 
80 IF INKEY$ = "6” THEN LET A = 1 
85 IF A = 1 THEN LET V = V+l 
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90 UNPLOT X, 26 - (V-l)*(V-l)/13 
100 UNPLOT X, 26 

110 IF 26 - V*V/13< = 0 THEN GOSUB 300 

120 NEXT X 

130 GOTO 40 

300 LET A = 0 

310 LET V - 1 

320 LET B = B+l 

330 IF B = 18 THEN STOP 

340 RETURN 


O.I. - Quern desejar dominar corapletamente a fungao 
INKEY$ nao pode deixar de ler a sec^ao TK-Mundo 
de Sergio Batista que no Micro Mundo de outubro de 
1983 (N9 8) analisa quase todos os detalhes da fun 
gao INKEY$ e completa ainda com alguns itfteressan 
tes efeitos de tela. 

Alias convem tambem ter o nuraero de novera- 
bro de 1983 (N? 9) pois voce assim aprendera todo 
sobre numeros binarios e hexadecimais. 



Vamos agora enveradar para uma serie de 


prograraas que fazem jus ao titulo do livro ou seja 
voce deve desenvolver a sua memoria lembrando e as 
vezes tentando advinhar. 

No programa "MEMORIZAQAO" esteja bem aten 
to. 0 seu TK—85 ira repetir apenas uma vez. 

CAMINHAO LAQO 

PISCINA CADEIRA 

0 que e que apareceu na tela do video? 

CAMINHAO LAQO 

PISCINA CADEIRA 

Agora voce pode coraegar a raedir o poder 
de sua propria memoria, na privacidade de sua pro¬ 
pria casa ou escritorio. 

Diga que desafio voce pode suportar que 
o seu TK-85 lhe proporciona o teste... 

Bem ai vai o programa "MEMORIZAQAO" 

10 PRINT "TESTEODEOMEMORIA" 

20 PRINT "***************" 

30 LET W = 0 
40 LET A$ = "PASTO" 
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50 LET B$ = "ROSAS” 

60 LET C$ = "GRAMA" 

70 LET D$ = "SAPATO" 

80 LET E$ = "AZUL" 

90 LET F$ = "ARVORE" 

100 LET G$ = "ASFALTO" 
110 LET H$ = "PAFEL" 

120 LET 1$ = "QUEIMADA" 
130 LET J$ = "PRAIA" 

140 LET K$ = "JARDIM" 
150 LET L$ = "BONECA" 
160 LET M$ = "CAMINHAO" 
170 LET N$ = "LAGO" 

180 LET 0$ = "PISCINA" 
190 LET P$ = "CADEIRA” 
200 LET Q$ = "ASSOALHO" 
210 LET R$ = "QUIOSQUE" 
220 LET S$ = "BOMBA" 

230 LET T$ = "POMAR" 
240 LET X=0 
250 LET U$ = A$ 

260 LET V$ = B$ 

270 LET W$ = C$ 

280 LET X$ = D$ 

290 GOSUB 600 
300 LET U$ = E$ 

310 LET V$ = F$ 

320 LET W$ = G$ 

330 LET X$ = H$ 

340 GOSUB 600 
350 LET U$ = 1$ 

360 LET V$ = J$ 

370 LET W$ = K$ 




Haja letra nao 
estiraada leitora 
ou venerado leitor 


! 


380 LET X$ = L$ 

390 GOSUB 600 
400 LET U$ = M$ 

410 LET V$ = N$ 

420 LET W$ = 0$ 

430 LET X$ = P$ 

440 GOSUB 600 
450 LET U$ = Q$ 

460 LET V$ = R$ 

470 LET W$ = S$ 

480 LET X$ = T$ 

490 GOSUB 600 
500 CLS 

510 PRINT "VOCEO TEVE O"; W; "O ACERTOS", "EM O" ;X;"0 TENTATI 
VAS" 

520 PRINT M ********************" 

530 STOP 

600 PRINT U$, V$, W$, X$ 

610 PAUSE 120 
620 CLS 

700 PRINT "QUAIS ERAM AS PALAVRAS?" 

800 PRINT "PRIMEIRA PALAVRA:", 

810 GOSUB 1200 

820 IF Y$ ■ U$ THEN GOSUB 1300 
830 IF Y$ < > U$ THEN GOSUB 1400 

840 IF Y$ < > U$ THEN GOTO 800 

900 PRINT "SEGUNDA PALAVRA:", 

910 GOSUB 1200 

920 IF Y$ = V$ THEN GOSUB 1300 
930 IF Y$ < > V$ THEN GOSUB 1400 

940 IF Y$ < > V$ THEN GOTO 900 

1000 PRINT "TERCEIRA PALAVRA:", 

1010 GOSUB 1200 
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1020 IF Y$ = W$ THEN GOSUB 1300 
1030 IF Y$ < > W$ THEN GOSUB 1400 
1040 IF Y$ < > W$ THEN GOTO 1000 
1100 PRINT "QUARTA PALAVRA:" 

1110 GOSUB 1200 

1120 IF Y$ = X$ THEN GOSUB 1300 
1130 IF Y$ < > X$ THEN GOSUB 1400 
1140 IF Y$ < > X$ THEN GOTO 1100 
1150 CLS 

1160 PRINT ”OBSERVE ATENTAMENTE" 

1170 PAUSE 120 
1180 CLS 
1190 RETURN 
1200 INPUT Y$ 

1210 PRINT Y$ 

1220 LET X = X+l 
1230 RETURN 
1300 PRINT "CERTO" 

1310 PAUSE 180 
1320 LET W = W+l 
1330 CLS 
1340 RETURN 

1400 PRINT ”ERRADO",,"TENTE NOVAMENTE" 

1410 RETURN 

Sugestoes: Para incrementar esse programa voce pode 

inicialmente trocar as palavras (linhas 40-230) 
aumentar o numero delas mas cuidado com as vana 
veis STRING que ira usar em seguida pode fazer um 
sorteio das mesmas. 

Uma "boa" nesse ponto talvez fosse o uso 
de uma variavel STRING indexada porem isto trara 
alguns problemas que logo aprenderemos a contornar 
Uma ideia interessante, e dar menos tempo 
a "jogadora" ou ao "jogador" para a memorizra^ao di 
minuindo o PAUSE da linha 610. 


7. O PRESENTE ESCONDIDO 



de uma mulher de sorte que num passeio solitario e 
sem pretensao e'm uma praia encontra uma garrafa e 
dentro dela esta o raapa de um tesouro!!?!! 


0 diflcil e achar uma tal garrafinha e 
prlncipalmente o mapa em questao estar c.erto. 

No programa que daqui ha pouco voce vai 
teclar ninguem encontra uma garrafa com o mapa de 
um tesouro, mas mesmo assim e muito instrutivo 
prlncipalmente para os pais caso queiram no seu s 
tio ou na sua casa esponder um ovo de Pascoa ou um 
outro presente de seus filhos. 

Neste programa toda vez que voce for in- 
quirido conta-se como uma tentativa no momento que 
voce responde "SIM". 

Toda e qualquer outra resposta significa 
que voce nao foi naquele lugar procurar o presente. 

10 PRINT "*V0CBOESTXOPR0CURAND0*" 

20 PRINT ’’A**********************” 

30 PRINT "*UMOPRESENTE OESCONDIDO*" 

40 PRINT ” A* ********** A AAA A******’’ 

50 PRINT "APERTEOQUALQUEROTECLaOPARAOJOGAR" 
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60 LET T = 0 

70 IF INKEY$ = ""THEN GOTO 70 
80 LET E = INT(6*RND)+1 
90 CLS 

100 PRINT "* COO- 
110 PRINT "0*0*0" 

120 PRINT "00*" 

130 PRINT "0*0*0" 

140 PRINT "*000*" 

150 PRINT 

160 PRINT "NO0 MAPAOQUE 0 RECEBEU,' X ’ INDICA O 0 0 LUGAR" 
170 PRINT 
180 GOTO 950 

190 PRINT "MAS OONDEOESTSOoOPRE SENTE?" 

200 print "serAOQUEOestXO n0 Ojardim?" 

210 INPUT D$ 

220 IF D$ = "SIM" riii.N GOTO 400 

240 print "serAOqueOestSOnaOmargemOdoOlago?" 

250 INPUT E$ 

260 IF E$ = "SIM" THEN GOTO 500 

270 PRINT 1 'SERAO QUEO E STS 0 NA 0SRVORE?" 

280 INPUT F$ 

290 IF F$ - "SIM" THEN GOTO 600 

300 PRINT "SERSO QUE OESTSONAO CAVERNA? " 

310 INPUT G$ 

320 IF G$ = "SIM" THEN GOTO 700 

330 PRINT "SERS.OQUEOESTS.OEMO CIMAODAOROCHA?" 

340 INPUT H$ 

350 IF H$ = "SIM" THEN GOTO 800 

360 print "serSQqueOestSOnoOforroOdaOcasa?" 

370 INPUT 1$ 

380 IF 1$ = "SIM" THEN GOTO 900 
390 GOTO 950 


400 IF R = 1 THEN GOTO 980 
410 GOSUB 1000 
420 GOTO 240 

500 IF R = 2 THEN GOTO 980 
510 GOSUB 1000 
520 GOTO 270 

600 IF R = 3 THEN GOTO 980 
610 GOSUB 1000 
620 GOTO 300 

700 IF R - 4 THEN GOTO 980 
710 GOSUB 1000 
720 GOTO 330 

800 IF R = 5 THEN GOTO 980 
810 GOSUB 1000 
820 GOTO 360 

900 IF R - 6 THEN GOTO 980 
910 GOSUB 1000 
920 GOTO 190 
950 PRINT 

953 PRINT "0 OPRESENTE OP0DE 0 ESTAR: " 

955 PRINT "NO O JARDIM O" ; "NAO MARGEMO DO O LAG0O 
OU O"; 

960 PRINT "NA 0 SRVORE □ OU 0 " ; "NA OCAVERNAO " ; 

965 PRINT "OU OEMOCIMAGDAGROCHA O";"OUONOO 
F0RR0ODAO CASA. " 

970 GOTO 190 

980 PRINT "VOC£ OENC0NTR0U O0 OPRESENTE . " 

983 PRINT "APROVEITE OAS 0 REGALIAS O QUE OELEO 
VAI OLHE 0 PROPORCIONAR." 

986 PRINT 

990 PRINT "VOCE OTEVE 0";T;" OTENTATIVAS OERRA- 
DAS" 

999 STOP 
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1000 CLS 

1010 PRINT "NAO , O 0 0 PRESENTE O NAO OESTiC O AI" , 
1020 PRINT "TENTE ODE ON0V0" 

1025 LET T = T + 1 
1030 RETURN 



0 vento uiva ao redor dos troncos de arvo 
res nodosas e atraves de urzes no pantano. 


Um cachorro late longe. 

Dentro da majestosa mansao a empregada 

chora copiosanietite. 

0 barao acaba de ser encontrado morto, nu 


ma enorme poqa de sangue. 


Como inspetor chefe da DESCE (Departamen- 
to de Elucida S ao e Soluqio de Casos Estranhos) vo¬ 
ce acaba de ser chamado para resolver o caso. 

Alem da bela e chorosa? empregada sao sus- 
peitos em potencial o imponente mordomo e a velha 
paj em. 

0 caso e complexo e voce nao esta certo 
de como e onde foi assassinado o gentil barao. 

A identidade do(a) as s a s s itio (a ) nao esta 


clara. 

A primeira grande decisSo aparece quando 
voci investiga as pistas, tentando deduzir onde o 
barao foi morto. 

Satisfeito com essa parte voce procura pe 
la arma do crime e assim que ficar claro onde e co 
tno ele foi assassinado a Gnica pergunta que resta- 
ra responder e M quem foi o autor? . 
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10 CLEAR 

20 LET M$ = "MORDOMO" 

30 LET E$ = "EMPREGADA" 

40 LET P$ = "PAJEM" 

50 PRINT "NAOvESPERAODOOINVERNO EO"; 
60 PRINT "NUMAOMANSAOO"; 

70 PRINT "0 OBARA0 OFOlOASSASSINADO." 

75 FOR J=1 TO 32 
80 PRINT 
90 NEXT J 

100 PRINT "NOSSG ELENCO:" 

110 PRINT "0OlMP0NENTEO";M$ 

120 PRINT "AOBELA 0”;E$ 

130 PRINT "aOvELHAO”;P$ 

140 LET A$ = "PUNHAL" 

150 LET B$ = "REVOLVER" 

160 LET C$ = "ATigADOR" 

170 LET D$ = "COPA" 

180 LET F$ = "QUARTO" 

190 LET G$ = "BIBLIOTECA" 

200 RAND 

210 LET H = INT(RND*3)+1 
220 LET N = INT(RND*3)+1 
230 LET R = INT(RND*3)+1 
240 PRINT 

250 PRINT "APERTE UMA TECLA PARA JOGAR" 
260 IF INKEY$ = "" THEN GOTO 260 
270 CLS 

280 PRINT "EMOQUEOaPOSENTO?" 

290 PRINT D$, F$, G$ 

300 INPUT V$ 

310 IF H = 1 THEN LET S$ = "COPA" 

320 IF H = 2 THEN LET S$ = "QUARTO" 

330 IF H = 3 THEN LET S$ = "BIBLIOTECA" 


340 IF V$ = S$ THEN GOTO 400 
350 PRINT "PISTA:" 

360 IF S$ = D$ THEN PRINT "COMIDA" 

370 IF S$ = F$ THEN PRINT "TRAVESSEIRO" 

380 IF S$ = G$ THEN PRINT "LIVROS" 

390 GOTO 280 
400 CLS 

410 PRINT "CERTO. FOI NO(A)Q";V$ 

420 PRINT "MAS, C0MOQUE DARMA?" 

430 PRINT A$, B$, C$ 

440 INPUT W$ 

450 IF N = 1 THEN LET T$ = "PUNHAL" 

460 IF N = 2 THEN LET T$ = "REVOLVER" 

470 IF N = 3 THEN LET T$ = "ATigADOR" 

480 IF W$ = T$ THEN GOTO 540 

490 PRINT "OPISTA:" 

500 IF T$ » A$ THEN PRINT "BAINHA" 

510 IF T$ = B$ THEN PRINT "BALAS" 

520 IF T$ = C$ THEN PRINT "TORAS ODEOmADEIRA" 

530 GOTO 420 
540 CLS 

550 PRINT "0 O ";T$; " QESTS OCERT0" 

560 print "quemOsaoOosOprotagonistasOdaOestCria?" 

570 PRINT M$, E$, P$ 

580 INPUT X$ 

590 IF R=1 THEN LET U$ = "MORDOMO" 

600 IF R=2 THEN LET U$ = "EMPREGADA" 

610 IF R=3 THEN LET U$ = "PAJEM" 

620 IF X$ = U$ THEN GOTO 670 
625 PRINT "PISTA:" 

630 IF U$ = M$ THEN PRINT "ELE SERVE" 

640 IF U$ = E$ THEN PRINT "ELA LIMPA" 

650 IF U$ = P$ THEN PRINT "AMA CRIANQAS" 

660 GOTO 560 
670 CLS 
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680 PRINT "VOCEORES0LVEUO0 OCRIME 0" 

690 PRINT "FOI 0(A) 0"; U$; "OQUEMOMATOUO” 

700 PRINT "NO(A) 0"; S$; " OC0M UHO"; T$ 

COMEETARIO: 

£ evidente que apos a execuqao do progra¬ 
ms, ele e auto-explicativo e nao custa nada (a nao 
ser um pouco da sua imaginaqao...) voce aumentar o 
numero de pessoas que trabalhavam para o barao(jar 
dineiro, motorists, cozinheira, etc.) com o que se 
aumentara o numero de suspeitos. 

£ evidente que deve-se correspondentemen- 
te aumentar o nGmero de possxveis armas e locais 
do crime. 

As armas poderiam ser foice, chave de fen 
da, facio, etc. e os "novos" locais de crime estu 
fa, garagem, dispensa etc. sendo as possivexs pis- 
tas flores, pneus, bolo, etc.. 


9. ENTRANDO EM FRIA 










Vejamos agora um programs no qual e voce 
que vai entrar em uma gelada, ja que no programa 
anterior quern entrou numa foi o barao, 

£ intuito deste programa forgar voce ecle 
tica(o) leitora(leitor) a raemorizar os lugares mais 
frios da superficie terrestre. 

Voce evidentemente sabe que cada quilome- 
tro quadrado na Antartica recebe menos energia so¬ 
lar que um quilometro quadrado em Bauru ou na ame- 


na Ibiuna. 


0 programa foi feito para os dados da Ta- 


bela 1. 


Nao esquega que a regiao para onde voce 
vai e maravilhosa mas o clima e muito variavel. 

Voce podera ter num so dia ventos uivan- 
tes, chuvas torrenciais, arco-iris, inundaqoes,tem 
peratura baixa, trovoes e relampagos. 

Bern, que sabe ai vale o proverbio: 
"neblina baixa, sol que racha 
neblina na serra, chuva na terra" 

Voce acha que nao vale? 
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10 DIM R$(8,17) 

20 DIM P$(8,17) 

30 DIM T(8) 

40 DIM M $(8 ,16) 

50 FOR I = 1 TO 8 
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6 0 INPUT P$(I) 

7 0 INPUT T(I) 

8 0 INPUT N$ (I) 

90 NEXT I 
X00 RAND 
X04 PAUSE 100 
106 CLS 
110 LET L = INT (9 * RND) 

120 IF L <1 THEN GOTO 110 

130 PRINT AT 2,2; "VAMOS TENTAR MEMORIZAR OS LUGARES MAIS 
FRIOS DO MUNDO" 

150 PRINT AT 7,2; "0 PAlS OU 0 PONTO MATS FRIO” 

160 PRINT AT 9,2; "DA SUPERFtCIE DA TERRA NA" 

170 PRINT AT 11,5;N$(L); AT 11, 28; ,, E:" 

180 INPUT R$(L) — Aqui entra a sua resposta 

190 IF P$(L) = R$(L) THEN GOTO 250 

200 PRINT AT 14,2; "ESTA TOTALMENTE ERRADO VOCE ENTROU 
NUMA GELADA" 

210 GOTO 300 

250 PRINT AT 15,2; "VOCE ACERTOU AMIGO(A)" 

260 PRINT AT 16,2;"ALIAS A TEMPERATURA MINIMA NO(A)" 

270 PRINT AT 18,2; R$(L);" □ E:" 

280 PRINT AT 19,2;T(L);" □ GRAUS CENTXGRADOS" 

295 PRINT 

300 PRINT "SE VOCE QUER CONTINUAR TECLE S CASO CONTRARIO 
QUALQUER OUTRA TECLA PARA PARAR" 

310 IF INKEY$ = "" THEN GOTO 310 
320 IF INKEY$ = "S" THEN GOTO 100 

340 PRINT AT 20,2; "MUITO OBRIGADO POR TER ESTUDADO 0 SEU 
AMIGO TK-85" 

350 STOP 


fi aqui que entra-se com os 
dados da Tabelai 
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Comentarios e sugestoes 

a) Bern cotno voce e um(a) garoto(a) tropical que tal 
fazer algumas mudangas bem simples no programa 
"ENTRANDO EM FRIA" passando o mesrao a ser 1 ES- 
XOU NUMA QUENTE" e incluindo no mesmo os luga- 
res mais quentes do mundo que estao na Tabela 2 # . 


Nome da regiao 
ou do pais 

Temperatura 
em graus 
centigrados 

Posigao na super 
ficie terrestre 
(continente) 

Libia 

48,9 

Africa 

California 

56,7 

America do Norte 

Israel 

53,9 

Asia 

Queensland 

53,3 

Australia 

Espanha 

50 

Europa 

Argentina 

48,9 

America do Sul 

Peninsula de 
Palmer 

14,4 

Antartica 

Filipinas 

42,2 

Oceania 


label a 2 

Neste potito a grande sugestao e voce ob- 
ter (e isto e um trabalho de pesquisa) todos os 
pontos mais quentes dos divers.os estados do Brasil 
e organizar um programa analogo ao "ENTRANDO EM 
FRIA". 

Para melhorar ainda mais, para o estado 

no qual voce vive obtenha os 10 municipios nos 

quais se registraram nos ultimos cinco anos as tern 

peraturas medias mais elevadas. 

E realmente um conjunto de informagoes 

muito util. ^ 

Alias, este tipo de informagoes aparece mui 

to bem condensado no Almanaque Abril. 



Vamos a um outro treino de merooria via 


TK-35 mostrando outra vez a sua habilidade (a domi 
cro) de localizar dados e a sua de gravar os mes¬ 
mo s . 

Neste programa permite-se errar ate no ma 
ximo 4 vezes e para receber os parabens deve-se 
acertar 8 vezes. 

Ai vai o programa: 

1 CLS 

10 LET E = 0 
20 LET N - 0 
50 DIM D(12) 

100 LET D(l) = 31 
110 LET D(2) = 28 
120 LET D(3) = 31 
130 LET D(4) = 30 
140 LET D(5) = 31 
150 LET D(6) = 30 
160 LET D(7) = 31 
170 LET D(8) = 31 
180 LET D(9) = 30 
190 LET D(10) = 31 
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200 LET D(ll) = 30 
210 LET D(12) = 31 
243 RAND 


250 LET M = INT (13 * RND) 
260 IF M<1 THEN GOTO 250 



270 PRINT "QUANTOS DIAS TEH 0 MESQ'jM 


280 INPUT D 


290 CLS 


Note que 

1 - janeiro 

2 - fevereiro 

3 - margo 

4 - abril 

5 - maio 

6 - junho 

7 - julho 

8 - agosto 

9 - setembro 

10- outubro 

11- novembro 
, 12- dezembro 


300 IF D = D(M) THEN GOTO 500 


310 PRINT "VOC£ ERROU E P0RTANT0 DEVE MEMORIZAR MATS 
320 PRINT "0 NtfMERO CERTO DE DIAS fi □" ;D(M) ; "QPARA 0 MESD 


330 LET E = E + 1 

340 IF E > 4 THEN GOTO 980 


350 GOTO 250 

500 PRINT "MUITO BEM-ESTS. CORRETO" 

510 LET N = N + 1 

520 IF N > 8 THEN GOTO 1000 

530 GOTO 250 

980 PRINT "LAMENTAVEL-VOCE ERROU DEMAIS 
1000 STOP 


Comentavios e inorementos 

a) Para tornar o seu programa mais completo que 
tal incluir o ano bissexto? 

Para tanto basta fazer ou seja incluir no pro¬ 
grama acima 

102 INPUT A - — 11 Aqui A represents o ano 

104 PRINT "A=";A , 

106 IF INT(A/4)<> A/4 THEN GOTO 110 

103 LET D(2) = 29 
k 109 -GOTO 120 
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b) Pode ser que voce queira antes saber quantos 
dias tem cada mes e para tanto basta incluir: 

220 FOR I = 1 TO 12 

225 PRINT "DC;!;") = " ; D (I) ; " □ " ; 

230 NEXT I 

c) 0 que voce deveria fazer para que saisse tambem 
o nome do mes abreviado com as suas tres pri- 
meiras letras? 

A "answer” digo a resposta e incluir o seguinte 
trecho no programa: 


6 0 

DIM 

N$ 

(12, 

3) 


62 

LET 

N $ 

(1) 

= 

"JAN” 

64 

LET 

N $ 

(2) 

= 

"FEV" 

6 6 

LET 

N $ 

(3) 

= 

"MAR" 

68 

LET 

N $ 

(4) 

= 

"ABR" 

70 

LET 

N $ 

(5) 

= 

"MAI" 

72 

LET 

N $ 

(6) 

= 

"JUN" 

74 

LET 

N$ 

(7) 

= 

"JUL" 

76 

LET 

N $ 

(8) 

= 

"AGO" 

78 

LET 

N $ 

(9) 

= 

"SET" 

80 

LET 

N $ 

(10) 

= 

"OUT 

82 

LET 

N $ 

(11) 

= 

"NOV 

84 

LET 

N $ 

(12) 

= 

"DEZ 


Valeria entao a pena mudar a linha 225 para 
225 PRINT N$(I) ; "O'V'TEM O”; D(I);"D DIAS" 




Em homenagem ao grande amigo(entre outras 


coisas tern mais de 2 metros de altura) do meu mar 
do e categorizado mestre de Quimica Gustavo "Niko¬ 
lai" Nars al vai mais um programinha de auto-ins- 
truqao, sobre os elementos quimicos, seus Domes, 
simbolos e numeros atomicos. 

Para nao deixar a "moringuinha" da leito- 
ra ou do leitor cheinha de coisas estranhas vamos 
brincar apenas com os 13 primeiros elementos da ta 
bela periodica colocados em ordem alfabetica (veja 
a Tabela 3. 

A finalidade do progr?ma que vem a seguir 
e entrar com o sxmbolo do elemento e a(o)„ "alu- 
na"(o) que no caso e a leitora (leitor) entrara 
com o nome completo do elemento. 

Em caso de coincidencia o TK-85 lhe dara 
os parabens e como uma "deixa" lhe dara t'ambem o 
numero atomico deste elemento. 

Joia, nao e Gustavo Nikolai?!? 


*rl I 
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Vej a os DIn 


S$ (13,2) 

I 

Slmbolo 



E$ (13,9) 

) 

Some do 
elemento 


actinio 
aluminio 
americio 
antimonio 
argonio 
ar senico 


bar io 


b er qu elio 
bismuto 


bromo 


Tabela 3 


N (13) 

J 

Numero 

atomico 




UDeiB j 

10 DIM E $ (1 3,9 ) 

20 DIM N(13) 

30 DIM S$(13,2) 

40 DIM R$(13,9) 

50 FOR I = 1 TO 13 
60 INPUT E$(I) 

70 INPUT N (I) 

80 INPUT S$(I) 

90 NEXT I 
95 CLS 
100 RAND 

110 LET R = INT (END * 14) 

120 IF R <1 THEN GOTO 110 

130 PRINT AT 2,2;"QUlMICA-ELEMENTOS-SlMBOLOS E nCmEROS 
AT0MICOS" 
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X40 PRINT AT 5,3;"0 NOME DO ELEMENTO CUJO SlMBOLO E: " 

150 PRINT AT 7,13;S$(R) 

160 REM ENTRE COM 0 NOME CORSETO DO ELEMENTO 
170 INPUT R$(R) 

180 IF E$(R) = R$(R) THEN GOTO 300 

190 PRINT AT 9,2;"VOCt DISSE QUE £;0";R$(R) ; "QPOREm ESTS 
ERRADO; 0 NOME CERTO £Q”; E$(R) 

200 GOTO 310 

300 PRINT AT 12,2; "PARABfiNS, REALMENTE ; S$ (R) ; "□£ 0 

SlMBOLO DOO"; E$(R); "DE SEU NOMERO ATOMICO fiD";S(R) 
310 PRINT AT 15,2;"SE VOC® QUER CONTINUAR TECLE S E PARA 
PARAR TECLE QUALQUER OUTRA TECLA" 

320 IF INKEYl = "" THEN GOTO 320 


330 IF INKEY$ = "S” THEN GOTO 95 
340 PRINT AT 20,2; " 

350 STOP 


CHEGA DE QUlMICA 


Alteragoes que podera fazer a ecletica 
leitora ou o esclarecido leitor. 

a) Completar toda a tabela periodica, deixando des 
ta forma Dmitri Ivanovitch Mendeleiev exatamen- 
te 78 anos apos a sua morte extreraamente per¬ 
plex© . 

b) Feita a primeira alteraqao, Gustavo Nikolai vai 
querer avaliar a sua capacidade de identificar 
corretamente os elementos e os seus numeros at 
micos. 

Para tanto convem mudar um pouco o pro- 
grama fazendo 20 testes ou perguntas e caso o nume 
ro de acertos seja inferior a 75% a(o) aluna(o) de 
ve continuar ate que chegue ao nivel mmimo deacer 
tos prefixado. 


toi 
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Caso este programa nao sirva para apren- 
der Quimica servira pelo menos para que voce se 
torne estrela ou astro em posteriores resolugoes 
de palavras cruzadas via microcomputador. 

Chi, chi, chi, se voce nao vai ser quimi- 
co e detesta e abomina palavras cruzadas o progra¬ 
ms em questao deve ser deixado como esta, sem ou- 
tras modificagoes. 

Nao devem tao pouco ser dirigidos impro- 
perios ao autor do livro pelas sugestoes dadas... 


0.1. - E evidente que o seu TK-85 pode ser usado 
como um eficiente professor. 

0 programa do leitor da Microhobby N9 4 
(1983) de nome ’’Professor" e de autoria de Bernar¬ 
do C. Stein mostra muito bem isto. 

E um programa bem longo porem se voce en— 
trar com ele sera recompensado com um excelente au 
xiliar de instrugao e quern sabe a aula se tornara 
menos monotona e as notas (quern sabe) subirao. 



Voce esta sonhando com um dos seus herois 


preferidos do "velho oeste" (Roy Rogers, Durango 
Kid, Tom Mix, Kitty Balloo, Matt Dillon). 

Na cidade esta tambera o perigoso "Billy 
the Kid" e muitos outros bandidos (alias e o que 
nao falta em nenhum lugar...) 

Voce nao pode fugir a sua obrigagao e de- 
ve matar os fasclnoras. 

Um unico tiro de Matt Dillon e mortal po¬ 
rem para que voce morra (voce e o Matt Dillon) de¬ 
ve receber mais de tres ferimentos. 

Deve-se entretanto "advinhar" onde pode 
estar o "marginal". 

Sera que ele esta no curral , no teto do 
hotel, no estabulo, no 'saloon', na casa do prefei 
bo (que tambem nao e flor que se cheire), nos fun- 
dos do banco, no armazem, no vagao na estagao fer- 
roviaria ou no consultorio do doutor? 

Por incrxvel que possa parecer (em sonho 
v ale tudo) voce possui um TK—85 com um programa 
9ue Ihe dara a "chave" para combater os mais peri- 
gosos pistoleiros do oeste. 

Note bem que se voce descobrir onde esta 
0 Billy the Kid,com um unico tiro voce mata o mes- 
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mo > porem se ocorrer o contrario e voce que leva o 
tiro e voce nao pode ter mais que tres ferimentos. 

0 heroi tem suas vantagens, mas nao e 
imortal como pode - se constatar * >• 

Em cada "encontro" da-se apenas um tiro 
(problema de arma...) e em alguns casos os tiros 
podem ser a esmo, voce acha que ele esta la e nao 
esta.. . 

Bern ai vai o programa "MATT DILLON" 

10 CLEAR 

20 LET M = 0 ——--— tiros mortais 

30-LET X = 0 -_— tiros perdidos 

40 LET F = 0 --— ferimentos recebidos 

50 LET A$ = "CURRAL" 

60 LET B$ = "HOTEL" 

70 LET C$ “ "ESTXBULO" 

80 LET D$ = "SALOON" 

90 LET E$ = "CASA DO PREFEITO" 

100 LET F$ = "VAGAO" 

110 LET G$ = "BANCO" 

120 LET H$ = "ARMAZEm" 

130 LET 1$ = "CONSULT0RIO" 

140 PRINT "ATIRE NO PISTOLEIROO"; 

150 PRINT "ANTES QUE ELE 0 ACERTE" 

160 PRINT 

170 PRINT "ELE OU VOCS PODEM ESTAR EM UM" 

180 PRINT "DOS SEGUINTES LUGARES:" 

185 PRINT A$, B$, C$ # D$, E$, F$, G$, H$, 1$ 

190 PRINT 

200 PRINT "ONDE VOCE ACHA QUE ESTA 0 BANDIDO?" 

210 INPUT R$ 

215 PRINT "ONDE VOCE SE ENCONTRA?" 


220 INPUT Q$ 

230 CLS 

240 PRINT "VOCg DEVE ATIRAR DE Q$; "OPARAO";R$ 
250 PAUSE 200 
260 GOSUB 1000 


265 CLS 
270 PRINT "BAAANG" 

280 IF R$ = 2$ THEN GOTO 400-^^' primeiro° U ° piStoleiro 
290 IF Q$ = Z$ THEN GOTO 700 — 

300 PRINT "VOCB DEU UM TIRO A ESMO" ^ C 8eja°«?| h “^" 
310 LET X = X+l uma armadilha 

340 IF F > 3 THEN GOTO 800 
350 PRINT "TENTE DE NOVO MATT" 

360 PAUSE 250 
370 CLS 
380 GOTO 140 
400 CLS 

410 PRINT "VOCE DESCOBRIU QUE BILLY ESTA NOO"; 

420 PRINT Z$ 

430 LET M = M+l 
440 PRINT 
450 PRINT 


460 PRINT "UPS, PLAFT, PLUCT - CUMPRIU BEM A TAREFA " 
470 PRINT 

480 PRINT VOCE QUER CONTINUAR LUTANDO (SIM/NAO)?" 

490 INPUT S$ 

500 CLS 

510 IF S$ = "SIM" THEN GOTO 140 

520 PRINT "VOC®, MATT DILLON MAT0UO"; M; "OBANDIDO (S)" 
530 PRINT "OE PERDEUO"; X; "OTIR0S"; 

540 PRINT Oe LHE ACERTARAMO"; F; "Q BALAQO(S)" 

550 STOP 

700 PRINT "UI, UI, UI - VOCE NAO SABE, MAS ESTflO"; 

710 PRINT "NO COVIL DO BANDIDO QUE £ NO:0 
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720 PRINT Q$ 

730 PRINT "VOCfi CAIU EM UMA ARMADILHAO 
740 PRINT "E ELE VAI ACERTA-L0O "» 

750 PRINT "A SOLUgAO E IR AO MEDICO PARA EXTRAIR A BALA" 

760 LET F = F+l 

765 IF F > 3 THEN GOTO 800 

770 PRINT "vocE jA temO"; F; " Oferimento (S) " 

780 GOTO 470 

800 PRINT "0 SEU CORPO ESTA TAO FURADO QUE PARECE UMA TELA." 
810 PRINT "DESSA VOCE NAO ESCAPA..." 

820 PRINT M E 0 SEU FIM MATT DILLON" 

830 PRINT " 000 * 000 ” Cj( 

832 PRINT " 000 * 000 " 

834 PRINT " O*****" 

836 PRINT " 000 *" 

838 PRINT " 000 *" 

839 PRINT " OOO *" 

840 PRINT " 000 *" 

845 GOTO 550 

1000 LET R = INT(9*RND) + 1 
1010 IF R = 1 THEN LET Z$ = A$ 

1020 IF R = 2 THEN LET Z$ = B$ 

1030 IF R * 3 THEN LET Z$ = C$ 

1040 IF R = 4 THEN LET Z$ = D$ 

1050 IF R - 5 THEN LET Z$ = E$ 

1060 IF R * 6 THEN LET Z$ = F$ 

1070 IF R = 7 THEN LET Z$ = G$ 

1080 IF R = 8 THEN LET Z$ = H$ 

1090 IF R - 9 THEN LET Z$ = 1$ 

1100 RETURN 

012- Esse programs "genocidico" esta tao comprx- 
do que recuso-me a dar sugestoes para melhora-lc. 

Alias a unica forma de melhorar e a de 

nao ter -bandidos!.! 

ti isto uma utopia? 


O.i.l.-Na Microhobby N9 7 
(1984) o programa do 
mes e o "Duelo" de auto 
ria de Gustavo Egidio 
de Almeida. 

% um programa bas- 
tante atraente e vale 
a pena o(a) informado(a) 
leitor(leitora) tirar 
ao menos uma copia do 
mesmo, desde que nao 
possua a Microhobby; o 
que alias e lamentavel. 



Sacha Certeiro, o famoso guia de "safaris" 


e um profundo conhecedor do que restou conhecer das 
selvas da Africa. 

Um dia no seu quartel-general instalado 
no Guaruja foi recebido um telegrama dizendo que 
ele estava perdido. 

Quern enviou o telegrama estava tao deses- 
perado que esqueceu citar o pals do continente afri 
cano onde Sacha Certeiro "se perdeu". 

No telegrama tambem nao havia nenhum ind 
cio sobre o tipo de ca 5 *a na qual estava envolvido 
Sacha Certeiro e o seleto grupo de 3 homens e 7lin 
das mulheres (mulher ca^ando na Africa e dose para 
mamute nao e cara leitora?...) 

Voce devera aplicar e exaurir toda a sua 
capacidade dedutiva alem de rezar um pouco para po 
der encontrar Sacha Certeiro e o seu safari. 

Porera a selva e cheia de surpresas desa- 
gradaveis !!I 

Assim que voce descobrir o tipo de animal 
9ue eles estavam caQando e necessario saber era que 
Parte do continente africano eles estao. 


I Hi 
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E as duvidas e incertezas nao param ai... 

Uma vez definido o animal e o pais, sera 
que da tempo de voce voar com uma expedigao de res 
gate* desde Sao Paulo ate a Africa,o que alias no 
ano de 1984 ? exige ainda um nGmero n >2 de escalas 
e mudangas em diferentes aeroportos.e tirar o seu 
grande amigo Sacha Certeiro,e principalmente as 7 
lindas mulheres do sacriflcio que pode ocorrer nas 
maos de uma tribo de pigmeus gigantes (isto e pior 
que pequeno anao...) 

Apenas se voce conseguir realizar essavia 
gem no nSmero certo de dies e que o grupo podera 
ser salvo. 

E nao adianta aqui dizer que o hoje e o 
ontem do amanhi como faz o Luiz Fernando Verissirao. 

0 negocio e para ja e va com otimismo pois 
o Sacha Certeiro e os outros (principalmente as ou 
tras) precisam disso. 

0 seu lema a partir de agora e: 

"pensar para acertar 
calar para«resistir 
agir para veneer" 

10 CLEAR 

15 PRINT "******************" 

20 PRINT "*0 SAFARI PERDIDO*' 1 
25 PRINT "*AJUDE O SACHA DE. . 

30 PRINT "******************" 

40 RAND 

50 LET B$ = "RINOCERONTE" 

60 LET C$ = "GAZELA" 

70 LET D$ = "HIPOP0TAMO" 

80 LET E$ = "LEAO” 
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90 LET F$ - 
100 LET G$ 
110 LET H$ 
120 LET 1$ 
130 LET J$ 
140 LET K$ 
150 LET L$ 
160 LET M$ 
170 LET N$ 
180 LET 0$ 
190 LET P$ 
200 LET Q$ 
210 LET R$ 
220 LET A 


= "ZEBRA" 

= "TIGRE" 

= "ELEFANTE" 
= "CROCODILO* 
= "MACACO" 

= "ETlOPIA" 

= "NIGERIA" 

= "CONGO" 

= "RODESIA" 

= "quEnia" 

= "TANZANIA" 
= "TOGO" 

= "LESOTO" 


230 LET P = 
240 IF A = 
250 IF A = 
260 IF A = 
270 IF A = 
280 IF A = 
290 IF A = 
300 IF A = 
400 IF A = 
410 IF A = 
420 IF P = 
430 IF P = 
440 IF P = 
450 IF P = 
460 IF P = 
470 IF P = 
480 IF P = 
490 IF P = 
500 PRINT 


= INT(9*RND) + 
= INT(8*RND) + 

1 THEN LET X$ 

2 THEN LET X$ 

3 THEN LET X$ 

4 THEN LET X$ 

5 THEN LET X$ 

6 THEN LET X$ 

7 THEN LET X$ 

8 THEN LET X$ 

9 THEN LET X$ 

1 THEN LET Y$ 

2 THEN LET Y$ 

3 THEN LET Y$ 

4 THEN LET Y$ 

5 THEN LET Y$ 

6 THEN LET Y$ 

7 THEN LET Y$ 

8 THEN LET Y$ 


— Aqui estao os paises 

0.1. - £ evidente que is 
to e uma brincadeira e 
pode ser que era alguns 
desses paises hoje em 
dia ou nunca, existiram 
os animais cagados e tao 
pouco os tais pigmeus gi 
gantes", mas de qualquer 
forma e uma "brincadeiri 
nha" salutar e com todo 
o respeito... 

As mulheres que cai 
ram nas maos dos pigmeus 
que o digam!!! 
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510 PRINT "0 SAFARI ESTA PERDIDO EH ALGUNS DOS SEGUINTES 

paTses” 

520 PRINT 

530 PRINT K$, L$, M$, N$, 0$, P$, Q$» 

540 PRINT 

550 PRINT "PARA JOGAR APERTE UMA TECLA " 

560 IF INKEY$ = ""THEN GOTO 560 
570 CLS 

580 PRINT "0 QUE ELES PODERAO 
590 PRINT B$, C$, D$, E$> F$, 

600 INPUT A$-“■ 

610 IF A$ = X$ THEN GOTO 640 
620 GOSUB 1000 
630 GOTO 590 
640 GOSUB 1300 
650 PRINT "AGORA ACHE EM QUE PAlS ESTA 0 SAFARI" 

660 PRINT K$, L$, M$, N$, 0$, P$, Q$» R$ 

670 INPUT W$ -— chute do pais 

680 IF W$ = Y$ THEN GOTO 710 
690 GOSUB 1000 
700 GOTO 660 
710 GOSUB 1300 

730 PRINT "AGORA VAMOS SE APRESSAR PARA SALVA-LOS" 

740 LET D = INT (RND*7+2) 

750 PRINT "QUANTOS DIAS VOCS DEVERA LEVAR PARA CHEGAR A 
ELES?" 

760 PRINT "PENSE NUH NCMERO INTEIRO ENTRE 2 E 8 DIAS" 
770 INPUT D1 

780 IF D1 = D THEN GOTO 830 
790 GOSUB 1000 

800 PRINT "TENTE UM OUTRO NtJMERO" 

820 GOTO 760 
830 GOSUB 1300 


ESTAR CAQANDO? 

G$, H$, 1$, J$ 

Aqui voce entra com o 
seu "chute" sobre o 
animal que esta sendo 
caqado 


§90 PRINT "VOCE E UM HEROI E SALVOU SACHA E O 
900 PRINT "0 SAFARI QUE ESTAVA CAQANDO O"; X$; "00"; 
910 print "na Africa no paIs chamado 0"; y$; "00"; 
920 PRINT "REALIZANDO A PROEZA EMO"; D; "OdIAS" 

930 STOP 
1000 CLS 

1010 PRINT "ERRADO, TENTE NOVAMENTE” 

1020 RETURN 
1300 CLS 

1310 PRINT "CORRETO" 

1320 RETURN 


Comentario 

Uma implementagao interessante nesse pro- 
grama e marcar o tempo dentro ou fora do programa 
ou ainda marcar quantas tentativas voce fez para 
salvar Sacha Certeiro e seus amigos... 

Porem uma grande modifica£ao para esse 
programa e usar variaveis coletivas a 1fanumericas 
e com isto diminuir em muito o trabalho de digita 
gao. 

Acompanhe agora uma versao do mesmo pro¬ 
grama . 


10 CLEAR 

15 PRINT "******************" 

20 PRINT "*0 SAFARI PERDIDO*" 

25 PRINT ’^AJUDEOSACHAOE...*" 
30 PRINT "******************" 

35 DIM A$ (9,11) " 


numero de animals 
numero maximo de caracte- 


res 
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37 DIM P$ (8,8) 

V 


numero maximo de caracteres 
numero de palses 



FOR I = 1 TO 9 
50 INPUT A$(I) 

60 NEXT I 
70 FOR K = 1 TO 8 
80 INPUT P$ (K) 

90 NEXT K 

100 LET N = INT(9*RND) + 1 
110 LET M = INT(8*RND) + 1 

120 LET X$ = A$ (N)- 

130 LET Y$ = P$ (M)- 

140 PRINT 

150 PRINT "O SAFARI ESTX PERDIDO EM ALGUM DOS SEGUINTES 
PAlSES:” 

160 FOR I = 1 TO 8 



170 PRINT P$ (I), 

180 NEXT I 
190 PRINT 

200 PRINT "PARA JOGAR APERTE UMA TECLA" 

210 IF INKEY$ = "" THEN GOTO 210 
220 PRINT "0 QUE ELES PODERAO ESTAR CAQANDO?" 
230 FOR J = 1 TO 9 
240 PRINT A$ (J), 

250 NEXT J 

260 INPUT R$ - 


270 IF R$ = X$ THEN GOTO 300 


Nao esquega de preencher 
com espagos em branco 
ate 11 caracteres (por 
exemplo ZEBRA OODODO) 
a sua entrada 


280 GOSUB 1000 
290 GOTO 220 
300 GOSUB 1300 

310 PRINT "AGORA ACHE EM QUE PAXS ESTX 0 SAFARI” 
320 FOR L = 1 TO 8 
330 PRINT P$ (L), 

340 NEXT L 


350 INPUT V$ -- 

360 IF V$ = Y$ THEN GOTO 390 
370 GOSUB 1000 
380 GOTO 310 
390 GOSUB 1300 
400 PRINT "AGORA VAMOS SE APRESSAR PARA SALVX-LOS" 

410 LET D = INT(RND*7 + 2) 

420 PRINT "QUANTOS DIAS VOCS ACHA QUE IRS LEVAR PARA 
SALVAR 0 SAFARI?" 

430 PRINT "VOCE DEVE PENSAR EM UM NtfMERO INTEIRO ENTRE 
2 E 8 (DIAS)" 

440 INPUT D1 

450 IF D1 = D THEN GOTO 490 
460 GOSUB 1000 

470 PRINT "TENTE OUTRO N0MERO" 

480 GOTO 430 
490 GOSUB 1300 

500 PRINT "VOCE t UM HERO I E SALVOU SACHA EO"; 

510 PRINT "0 SAFARI QUE ESTAVA CAQANDO O"; X$;"D"; 

520 PRINT "NA AFRICA NO PAXS CHAMADO 0" ;Y$ ; "O "; 

530 PRINT "REALIZANDO A PROEZA EMO"; D;. "OdIAS" 

540 STOP 
1000 CLS 

1010 PRINT "ERRADO, TENTE NOVAMENTE" 

1020 RETURN 
1300 CLS 

1310 PRINT "CORRETO" 

1320 RETURN 


Nao esquega de preencher 
com espagos em braffco 
ate 8 caracteres (por 
exemplo QUENIAOO) a sua 
entrada 






“1 



aprendizado que consiste em preencher os espaqos 
em branco com palavras que tornem logico o sentido 
de um paragrafo. 

Esse programa automatiza o processo de re 
mover palavras. 

Ai vai ele . . . 


10 LET K - 1 

20 PRINT "DE QUANTAS EM QUANTAS PALAVRAS VOCE"; 
25 PRINT "OQUER RETIRAR UMA?" 

30 INPUT N 

40 PRINT ’*ENTRE COM UM PARAGRAFO" 

50 INPUT P$ 

60 CLS 

70 FOR J = 1 TO LEN P$ 

80 IF P$(J) <> "O" THEN GOTO 100 

90 LET JC = K+l 

100 IF K > N THEN LET K = 1 

110 IF K<N OR P$(J) = "O" THEN GOTO 130 

120 LET P$(J) » "?" 

130 NEXT J 

140 PRINT P$ 

150 STOP 
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Coeentarios sobve o programa REMOVENDO” 

A entrada de dados S evidente mas deve-se 
destacar que como a variavel STRING P$ (linha 50/) 
nao e dimensionada, o seu paragrafo pode ser bem 
longo,,. 

Na iustrugao 80 o seu TK-85 aprende a pro 
curar espagos em branco no seu paragrafo. 

Cada vez que ele encontra urn espago em 
branco, o programa sabe que "passou" por uma pala 
vra e ao contador de palavras K e acrescido o va¬ 
lor 1. 

Quando o valor da variavel K atingir o va 
lor de N o programa procura a proxima letra e subs 
titui a mesma com um ponto de interrogagao. 

0 programa continue substituindo letras 
com pontos de interrogagao ate que encontre um no¬ 
vo espago era branco o qual indica o fim de uma pa- 
lavra . 

Quando na instrugao de numero de linha 80 
encontra-se novamente um espago em branco K e au- 
mentado outra vez de 1. 

Na instrugao de numero de linha 100 quan¬ 
do K (contador de palavras) e maior que N (remova 
a palavra) restabelece-se o valor de K para 1 ou- 
tra vez, pois com isso impoe-se que a contagem de 
palavras vai coraegar de novo. 

Na instrugao 110 caso K seja menor que N 
pula-se imediatamente para a linha 130. 

£ evidente que a linha 120 sera tambem 
saltada desde que ocorra P$(J) * "O" (salto incon 
dicional devido ao GOTO) . 

0 operador logico OR e necessario para le 
var em conta os duplos espagos em branco. 


81 


Caso nao houvesse este OR o segundo espa¬ 
go em branco (se existisse) seria sempre substi- 
tuido por um ponto de interrogagao. 

Teste esse programa para as seguintes fra 

ses : 

p$ = "seOvoceOquerOserOfeliz.OfujaOaOtodoOOassuntoO 
OvaoOqueOnaoO CLARE IE 0 a 0 cabe g a , O nem O A JUDE O 
A0OOC0RAgA0" 

Faga N = 3 

Depois disso aplique para a frase: 

p$ = "voc£OnaoO£OobrigadoOaOacreditarOemQmim.O 
afinal Ode OcontasOoO queO voc£ OdeveOmesmoO 
acreditarO£ OnaOexperiSncia" 

Faga N = 4 

Para finalizar aplique isto a 3? Lei de Newton. 

P$ = " SE 0DUASO part!culas O interagem,O AS 0 FORQAS 0DE O 

interaqao OmedidasOO emOOuk Oreferencial o INERCIAL □ 
sao Odiretamente Oopostas" 

Faga N = 5 





Ai vai urn programinha no qual serao combi 


nadas algumas palavras e voce entrara com o sexo 


e o primeiro nome de alguma amiga ou amigo e o seu 
TK-85 ira caracteriza-lo. 


fi claro que as vezes poderao sair frasfs 
sem muito sentido, mas frequentemente o seu TK-85 
conseguira qualificar de forma correta o seu "fre- 
gues" . 


No caso em que o seu TK-85 acertar por fa 
vor nao permits que a dita ou o dito cujo quebre 
o "magistral previsor" TK-85. 

Nas variaveis coletivas STRING M$( ) e 
A$( ) guardamos os nomes masculinos e nas varia¬ 
veis alfabeticas coletivas F$( ) e B$( )guardam-se 
os nomes feraininos. 


Ai vai um grupo de palavras para voce tor 
nar pratico o seu programs. 
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M$( ) 

A$( ) 

F$( ) 

B$( ) 

TRAIQOEIRO 

GORDO 

PULIDO 

FEIO 

VENENOSO 

DESALINHADO 

BRONCO 

FRACO 

SUJO 

AGRESSIVO 

APAGADO 

FALSO 

MALtGNO 

-- 

PORCO 

PERU 

LEAO 

SAPO 

MACACO 

TOURO 

VERME 

RECRUTA 

BURRO 

CAO 

PECADO 

ESCORPIAO 

TIGRE 

TRAIQOEIRA 

GORDA 

p£lida 

FEIA 

VENENOSA 

DESALINHADA 

BRONCA 

RRACA 

SUJA 

AGRESSIVA 

APAGADA 

FALSA 

MALlGNA 

PORCA 

PERUA 

LEOA 

VtBORA 

MACACA 

VACA 

MINHOCA 

CALOURA 

MULA 

CADELA 

TRAIQAO 

ARANHA 

PANTERA 


Tabela 4 


125 PRINT "Ol = MASCO2 = FEM" 

130 INPUT C 
140 PAUSE 300 
150 CLS 

160 LET R = INT (13 * RND) + 1 
170 IF C = 2 THEN GOTO 210 

180 PRINT N$; "OeO"; M$(R); "OC0M0 UMO"; A$(R) 
190 PRINT 
200 GOTO 230 

210 PRINT N$; "OEO"; F$(R) ;"OCOMODuMAO"; B$(R) 
220 PRINT 

230 PRINT "QUER CONTINUAR A BRINCADEIRAO(S/N) ?" 

235 INPUT X$ 

240 IF X$ = "S" THEN GOTO 95 
250 STOP 


Ai vai o programinha: 


5 DIM M$(13,11) 

10 DIM F$(13,11) 

15 DIM A$(13,9) 

20 DIM B$(13,8) 

30 PRINT "ENTRE COM AS PALAVRAS" 

40 FOR I - 1 TO 13 
50 INPUT M$(I) 

60 INPUT F$(I) 

70 INPUT A$(I) 

80 INPUT B$(I) 

90 NEXT I 
95 CLS 

100 PRINT " QUEM VOCS QUER DESCREVER?" 
110 INPUT N$ 

120 PRINT "ENTRE COM 0 SEXO DA PESSOA"; 





No programs que vamos analisar a seguir 
nos teremos palavras com algumas letras a menos 
que serao subst'itu'idas por pontos de interrogaqao. 

0 seu TK-85 escolhe aleator lamente uma pa 
lavra das escritas e entao substitui as letras 
aleator lamente escolhidas por pontos de interroga- 
gao . 

Por exemplo o seu TK-85 pode produzir a 

s aida 


OT?MIS ?0 

caso uma das palavras escolhidas seja OTIMISMO. 

Quern for usar o programs tera a impressao 
de um jogo pois serao dadas oportunidades para se 
acertar o que realmente deve acabar acontecendo de 
pois de algum tempo e quern acertar ou soletrar cer 
to tudo recebera no final uma "saida festiva" ao 
lado da quantidade de erros cometida. 


Ai vai o programs "SOLETRANDO 
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1 SLOW 
5 LET T = 10 
10 DIM C$(10) 

15 DIM A$(T,10) ■ 
20 LET C = 0 1 
25 LET E = C J 


e aqui que vai se guardar o 
-—~~~ que voce esta soletrando 

dimensao maxima para 10 palavras cada 
uma com no maximo 10 caracteres 

j aqui comegam a contar as respostas I 
certas (C) e as erradas (E) j 


30 PRINT "ENTRE COM AS PALAVRAS" 
40 FOR X = 1 TO T 


50 INPUT A$ (X) _ com men 

/ vras ba 

60 IF A$ (X) < "A" THEN GOTO 90 cla f~NK 

70 PRINT A$(X) sai^do 

Voce sa 

M X ticamen 

90 CLS 

100 PRINT "QUANTAS LETRAS VOCE QUER RETIRAR?" 
110 INPUT R 


Caso voce queira entrar 
com menos que T pala- 
vra s basta ap ertar a te 
cla | NEWLINE j e voce 
sai do LOOP. 

Voce sai do LOOP automa 
ticamente quando X>T 


120 CLS 

130 IF E+C> = 15 THEN GOTO 1000 - 

140 LET L = INT (1 + RND*T)-— esco 

150 IF A$(L)< "A" THEN GOTO 140 

160 LET B$ = A$(L) -— tran 

lhid 

170 FOR I = 1 TO R vel 

180 LET N = INT(1 + RND*10)-— 

190 IF B$(N) <"A" THEN GOTO 180 
200 LET B$(N) » "?" 

210 NEXT I 

I,, - repete-se a 
220 PRINT B$ "— ' letras retir 

230 INPUT C$ ^ 

-—- ai vai a sua 

240 PRINT C$ ■ 

250 IF A$(L) = C$ THEN GOTO 500 -— 

260 PRINT "SINTO MUITO TENTE DE NOVO" 
270 INPUT C$ -— si 


-Parada do jogo 

escolha aleatoria da palavra 

transfere-se a palavra esco- 
lhida para uma outra varia- 
vel 

- e aqui que serao reti- 
radas algumas letras 
da palavra B$ aleato- 
riamente escolhidas 


repete-se a palavra ja com "?" nas 
letras retiradas 

ai vai a sua advinhagao 


desvio condicional 
para lhe dar os 
parabens 


270 INPUT C$ -— ai vai urn convite para 

uma nova tentativa sem 

280 IF C$(1)<>"N" THEN GOTO 220 |contar pontos negativos 

290 LET E * E+l . —-—. 1 -T— 

■ -aqui esta um convite 

300 PRINT A$(L); "O! A PALAVRA CERTA" para voce se "render" 
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310 LET A$(L) — 7 r Esta e uma jogada "mutretosa" 

120 PAUSE 200 para nao f a ^ r ma i s a mesm a pa 

J lavra. 0 7’ esta antes da 1 

330 GOTO 120 tra "A" no codigo ASCII. 

vnp I—i to 1 Cuidado para nao entrar em 

500 FOR - 1 TO 3 L00p ,. louc - 0 „ 

510 LET A = INT(6'+ RND 1 * 13) 

520 LET B = INT(1 + RND * 30) 

530 PRINT AT A,B; "*** VOCg fi UM MONSTRO NO VERN&CULO***" 

540 PAUSE 77 
550 PRINT AT A,B; 

560 NEXT I 


570 LET C = C + 1 
580 GOTO 120 

1000 PRINT "CORRETAS =0";C; "00"; "ERRADAS =0";E 
1010 STOP 


Sugestao: 

Para voce testar esse programa ai vao 10 
palavras de 10 letras cada uma 

OBEDlgNCIA CONSOLADOR 

INQUISigAO ATROPELADO 

GRAMATICAL BIBL^IOTECA 

EXCOMUNHAO ACOMETIDOS 

DISPONlVEL POLITEISMO 


Depois de estar bem pratico mude as li- 
nbas 5, 10, 15 para que se possa entrar com 13 pa 
lavras,cada uma com 13 caracteres e depois de acer 
tar isto mude para N palavras todas de comprimento 
M < 15 . 


I® i 
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0.1. - Nesse programs nao esquega que so se computa 
a voce um erro quando voce desiste de uma palavra. 

Em caso contrario voce podera tentar quanto 

quis er. 

Quando voce "desiste” de uma palavra como ja 
foi explicado ela e eliminada de um novo sorteio. 


17. VERTENDO 




' P 




Agora vejamos como podem ser usados os re 
cursos de um micro para permitir que se obtenha a 
versao de uma palavra em portugues para uma outra 
lingua. 

No programa "VERTENDO” entra-se com o nu- 
mero do dia da seraana e o seu TK-85 lhe perguntara 
se voce deseja a versao para o Ingles, Frances ou 
Espanhol. 

Nao esqueqa de alimentar o seu TK-85 com 
os seguintes dados 


setnana 

P$( ) 

I$< ) 

F $ ( ) 

s$( ) 

1 

Segunda 

Monday 

Lundi 

Lunes 

2 

Ter q a 

Tuesday 

Mardi 

Martes 

3 

Quarta 

Wednesday 

Mercredi 

Miercoles 

4 

Quinta 

Thursday 

Jeudi 

Jueves 

5 

Sexta 

Friday 

Vendredi 

Viernes 

6 

Sabado 

Saturday 

Samedi 

Sabado 

7 

Domingo 

Sunday 

Dimanche 

Domingo 


Tabela 5 
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5 PRINT "VERTENDO" 

7 PAUSE 77 
10 CLS 

15 DIM P$(7,8) 

20 DIM 1$ (7,9) 

25 DIM F$ (7,8) 

30 DIM S$(7,9) 

40 FOR J = 1 TO 7 
50 INPUT P$(J) 

60 INPUT I$(J) 

70 INPUT F$(J) 

80 INPUT S$(J) 

90 NEXT J 

94 PRINT "ENTRE COM 0 NTJMERO DO DIA EM PORTUGUfS” 

95 PRINT 

96 PRINT "1-SEGUNDA, 2-TERQA, 3-QUARTA, 4-QUINTA,”; 

97 PRINT.”05-SEXTA, 6-sSBADO, 7-DOMINGO" 

99 INPUT K 

100 PRINT "FAgA A ESCOLHA DA LINGUA TECLANDO UM NtfMERO" 
110 PRINT "1-INGLfiS" 

120 PRINT "2-FRANC£s" 

130 PRINT "3-ESPANHOL" 

140 INPUT N 

150 IF N = 1 THEN GOTO 200 

160 IF N = 2 THEN GOTO 300 

170 IF N = 3 THEN GOTO 400 

180 IF N<>1 AND N<>2 AND N<>3 THEN GOTO 140 

200 PRINT P$(K); "□EO"; I$(K); "OEM INGLES” 

210 GOTO 500 

300 PRINT P$(K) ; "OeQ"; F$(K); "OEM FRANCES” 

310 GOTO 500 

400 PRINT P$(K); "OeO"; S$(K); "OEM ESPANHOL” 

500 PRINT "VOCE QUER CONTINUAR COM AS PERGUNTAS (S/N)?” 
510 INPUT R$ 
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520 IF R$ = "S” THEN GOTO 94 
600 STOP 

Comentavio: 

Voce seria capaz de alterar um pouco o pro 
grama "VERTENDO” entrando com os meses era Ingles e 
obtendo a sua tradugao para o Portugues, Espanhol, 
Alemao, Frances ou Italiano e nesse caso obtendo 
um novo programa que poderia ser chamado "TRADU2IN- 
DO” . 

Maos a obra pois e um otimo exercicio. 


0.1. - Estudar ingles e, ao mesmo tempo,conhecer 

a sistematica do micro sao os objetivos do excelen 
te artigo de Renato Degiovani - "Aprenda Ingles no 
co input ad or" que aparece na Micro Sistemas N? 18 
(marqo/1983) . 

£ no fundo um programa jogo muito instru¬ 


t ivo . 





0 esqui e urn longo e estreito patim de ma 
deira de pouco mais de 2m de comprimento por cerca 
de 8 cm de largura, para deslizar sobre a neve. 

E nao vai ser muito facil voce esquiar 
aqui no Brasil se bem que ja temos pistas artifi- 
cialmente mantidas no sul do pais. 

Hoje as competigoes de esquiadores const! 
tuem parte fundamental do programa dos logos Olim- 
picos de inverno. 

Essas competigoes dividera-se em tres cate 
gorias: prova de velocidade em deslizamento livre 
encosta abaixo; prova de pericia e velocidade, 
com deslizamentos em ziguezagues por entre bandei- 
rolas (SLALOM) e as emocionantes provas de salfo. 

0 deslizamento em esquis pelo canjpo cru- 
zando atalhos e o que pratica a maioria das pes- 
soas que nao aspiram participar em competigoes. 

E um esporte arriscado, era que se poem a 
prova a resistencia, destreza e decisao do despor- 
t i s t a. 

Como nao temos cao, digo inverno, rigoro- 
so esquiamos com o auxilio do TK-85 com a vantagem 
de nao se machucar nunca. 
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10 DIM C(9) -—— 

qu 

20 CLS ]J 

30 FOR J = 1 TO 9^ |_be 

40 LET C(J) = INT(RND*10) + 14 


Sugestao: Mude o 9 para 6 e o 7 
que aparece nas linhas 50, 60 e 
100 para 10 e voce tera um jogo 
bem facil 


50 PLOT J*7, C(J) - 1 — 
60 PLOT J*7, C(J) + 2 
70 NEXT J 
80 LET Y=C(1) 

90 FOR K = 3 TO 63 


se voce estiver muito "grossa"ou 
"atrapalhada" nao conseguindo 
"esquiar" aumente a abertura en- 
tre as bandeirolas fazendo 
50 PLOT J*7, C(J)-2 
Mas faga outras mudangas tambem!! 


100 IF K/7 = INT(K/7) THEN GOTO 80 + (30 AND Y> = C(K/7) AND 
Y <= C(K/7) + 1) 

110 PLOT K,Y 
120 LET X=Y 

130 LET Y = Y + CINKEY$ = ”7”) - (INKEY$ = "6”) 

140 UNPLOT K,X 
150 NEXT K 


155 PRINT AT 19,0; "PARABENS - VOCE CONSEGUIU” 

660 PRINT AT 20,0; "VOCE QUER OUTRA CORRIDA (S/N)?" 
170 INPUT R$ 

180 IF R$ = "S" THEN GOTO 20 


185 STOP 


Comentar-ios e sugestoes: 

Como voce ve tem-se 8 aberturas na telado 
seu video. 

Voce deve mexer apenas nas teclas "7" (mo 
vimento para cima) e na tecla "6" (movimento para 
baixo) e passar entre essas aberturas com o seu es- 
qui sem bater nas bandeirolas ou querer passar por 
"fora"... 

Caso isto ocorra comegara tudo de novo ate 
que voce termine o percurso quando inclusive voce 
tem opgao de querer continuar a brincar ou nao.'!' 


0.1. - Consulte a Microhobby N9 6 de 1983 que voce achara um 
programa semelhante ao "SLALOM" 


No programa "RASTRO" voce deve "guiar"uma 
serpente ou vibora cuja cabega e representada por 
um V, por entre blocos de pedra que se deslocam pa 
ra acima, 

A voce sera dada uma contagem com um limi 
te maximo de ate 13 choques nos blocos (extremo in 
cluido) apos o que o deslizar da serpente por voce 
guiada termina. 

Note que no inlcio voce tem apenas um "V 
que seria a cabega da serpente e com as teclas "5" 
e "8" voce guiara a mesma entre os blocos de pe¬ 
dra. 

Ai vai o programa "RASTRO" 

10 LET P = 0 

20 LET E = P 

30 LET B = P 

40 LET C = P 

50 LET D = P 

60 LET Y = 12 

70 LET A = INT(RND*4) + 10 

75 SCROLL 
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80 LET Y=Y+(INKEY$ = "8" AND Y< 13). 
- (INKEY$ = "5" AND Y>10)- 

90 PRINT TAB A; "g"; AT 18, Y; "V” 

100 IF D = Y THEN LET F = F+l 

110 LET D = C 

120 LET C = B 

130 LET B = A 

140 LET P = P+1 

150 IF F<= 13 THEN GOTO 70 

160 PRINT AT 18,10; "****" 

165 PRINT AT 10,18; "CONTAGEM" 

170 PRINT AT 11,19; "FINAL" 

180 PRINT AT 12,21; p 


Nao esquega que se a 
expressao entre pa- 
renteses f or verda- 
deira produz-se um 
(1) e em caso contra 
rio o zero (0) 


190 STOP 



Nao importa o quanto voce foi bem sucedi - 


do ate agora, o jogo que convencionamos chamar de 
"HACHURANDO" fara voce fracassar muitas vezes. 

Se voce e o tipo da pessoa que nunca "fe- 
cha os olhos" para um grande desafio comece a te- 
clar ja o programa "HACHURANDO" porem nao diga de¬ 
pots que nao foi avisado. 

0 proposito do jogo e "encher uia mcldu— 
ra de contorno preto com um hachurado todo espe¬ 
cial. 

0 hachurado tem que ser completo. 

Com o intuito de controlar a diregao do 
hachurado voce pode usar as teclas -> , ° » 1 ou 
"8" . 

Note que uma vez escolhida diregao e sen- 
tido de raovimento ele continua a menos que voce 
aperte uma nova tecla. 

Voce nao pode, de forma alguma bater na 

moldura. 

Para complicar um pouquinho mais o jogo 
existe um limite de tempo para voce completar o 
hachurado. 
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10 PRINT AT 4,10;" 00006O000OB" 

20 FOR J = 5 TO 13 
30 PRINT AT J, 10; " O" 

40 PRINT AT J,20; "0" 

50 NEXT J 

60 PRINT AT 14,10; " GQOQQQ0QQQQI " 

70 DIM D(9,9) 

80 LET L = 1 
90 LET C = 5 

100 LET T = 0 -— conta o tempo 

110 LET Z = 2 
120 GOTO 900 

200 IE INKEY$<>"" THEN GOTO 240 

210 GOSUB 1000 

220 PAUSE 100 

240 LET Y$ = INKEY$ 

243 IF Y$ = "5" OR Y$ = ”6" OR Y$ = "7'' OR Y$ = "8" THEN 
GOTO 250 
245 GOTO 200 
250 LET Z = VAL Y$ 

280 GOTO Z*100 

500 LET C = C - 1 

510 IF C<1 THEN GOTO 1100 

520 GOTO 900 

600 LET L = L + 1 

610 IF L > 9 THEN GOTO 1100 

620 GOTO 900 

700 LET L = L - 1 

710 IF L <1 THEN GOTO 1100 

720 GOTO 900 

800 LET C = C + 1 

810 IF C >9 THEN GOTO 1100 

900 LET D (X, C ) = 1 

910 PRINT AT L + 4, C + 10; "®” 


917 GOSUB 1000 

920 IF INKEY$< >""THEN GOTO 200 
930 FOR X = 1 TO 9 

940 FOR Y = 1 TO 9 

950 IF D(X,Y) = 0 THEN GOTO Z*100 
960 NEXT Y 

970 NEXT X 

980 PRINT AT 20,0;” __ 

990 STOP 

1000 LET T = T+l ■— conta o tempo 
1010 IF T >150 THEN GOTO 1100 
1020 RETURN 

1100 IF T <150 THEN GOTO 1150 
1110 PRINT AT 20,0; " 

1120 GOTO 990 
1150 PRINT AT L+4, C+10;"' 

1160 PRINT AT 20,0; " 

11 701 GOTO 990 


VOCfi CONSEGUIU SEU ESPERTALHAO 


VOC£ PERDEU-SEU TEMPO TERMINOU 


VOCfi BATED NA MOLDURA 


Comentarios sobre o programa: 

a) Linhas 10-60; Desenha-se o contorno da moldura. 

b) Linhas 200-245; Com essas instrugoes pode-se 
com as teclas que tern as flechas mudar a dire- 
gao da linha que vai hachurando. 

Nenhuma outra das teclas tern qualquer efeito so 
bre o programa. 

c) Linha 250; Qualquer tecla correta quevoce usar 
sera convertida em numero devido a aplica^ao da 
fungao VAL e dessa forma da para usar o GOTO 
calculado na linha 280. 
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d) Linhas 500-920: £ com o auxilio das instrugoes 

que estao nesse intervalo que da para hachurar 
a parte interna da moldura. 

e) Linhas 930-990: Verifica-se nessas linhas se a 
area esta totalmente hachurada. 

f) Linhas 1000-1120: Essas linhas estao ligadas 
ao limite de tempo para hachurar completamente 
a parte interna da moldura. 

g) Linhas 1010-1100: Ax vai a mensagem de que vo¬ 
ce bateu na moldura e ax o programa tambem ter- 
mina. 



0 TK-85 e realmente uma tnaravilhosa fer 


ramenta para desenhar as mais diversas figuras na 
tela. 

fi importante que os dois programas abaixo 
voce execute no modo rapido ou seja deve ser usa3o 
o comando FAST pois caso contrario o(a) preclaro(a) 
leitor(a) pode perder a paciencia e nao apreciar dev id amen 
te a "lindeza" da saxda: 

a) 5 FOR K = 5 TO 15 STEP 2.5 
10 FOR C = -PI TO PI STEP .02 

20 LET X = K * SIN(2*C)*C0S C 

30 LET Y = K * SIN(2 *C)* SIN C 

40 PLOT X + 30, Y+20 
45 FAST 
50 NEXT C 
60 NEXT K 
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b) 5 FOR K = 7 TO 21 STEP 3.5 

10 FOR C ■ -PI TO PI STEP .02 
20 LET X = K *. SIN(2*C)*C0S C-2 
30 LET Y = K*SIN(2*C)*SIN C + 2 
40 PLOT X + 3 0, Y + 20 
45 FAST 
50 NEXT C 
60 NEXT K 

Qual das duas figuras voce gostou mais? 


0 nosso filho Sergio e que fez o programa 
"GR5FIC0 MALUCO” que realmente e muito doidao ... 

De vazao a sua criatividade e fa$a coisas 
muito mais lindas!'. I _ 


1 PRINT AT 1,10; 

10 FOR F = 1 TO 30 
20 PLOT F, 30 
30 PLOT 30, F 

40 NEXT F 

41 FOR F = 1 TO 25 
50 PLOT F, 25 

60 PLOT 25, F 

70 NEXT F 

71 FOR F = 1 TO 20 

72 PLOT F, 20 

73 PLOT 20, F 
75 NEXT F 

78 FOR F = 1 TO 15 

80 PLOT F, 15 

81 PLOT 15, F 

82 NEXT F 

83 FOR F = 1 TO 10 

84 PLOT F, 10 


iGRAFICO MALUCO 
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86 PLOT 10, F 

146 NEXT F 

90 NEXT F 

147 FOR F = 1 TO 13 

91 FOR F = 1 TO 5 

148 PLOT F, 13 

92 PLOT F, 5 

149 PLOT 13, F 

93 PLOT 5, F 

150 NEXT F 

94 NEXT F 

152 FOR F = 1 TO 7 

96 FOR F = 1 TO 27 

153 PLOT F, 7 

97 PLOT 27, F 

154 PLOT 7, F 

98 PLOT F, 27 

155 NEXT F 

99 NEXT F 

156 FOR F = 1 TO 8 

100 FOR F = 1 TO 23 

157 PLOT F, 8 

101 PLOT F, 28 

158 PLOT 8, F 

102 PLOT 28, F 

159 NEXT F 

103 NEXT F 


104 FOR F = 1 TO 23 


106 PLOT F, 23 

0.1. - Como ve a cara leitora e o estimado leitor 

107 PLOT 23, F 

nao e proibido ter numero de linha de um (1) em urn 

108 NEXT F 

porem convem nao abusar desse sisteraa pois corre- 

109 FOR F = 1 TO 22 

se o risco de ter que apagar grandes trechos do 

110 PLOT F, 22 

programa, quando nao todo ele!?l!? 


111 PLOT 22 , F 
120 NEXT F 

130 FOR F = 1 TO 17 

131 PLOT F , 17 

132 PLOT 17, F 

134 NEXT F 

135 FOR F = 1 TO 18 
137 PLOT F, 18 

140 PLOT 18, F 

141 NEXT F 

143 FOR F = 1 TO 12 

144 PLOT F, 12 

145 PLOT 12, F 




quer . 


Desenhar no TK-85 nao e uma at'iV'Cdade quat 


Precisa de paciencia, de imaginagao, de 
criatividade. 

Diz muito bem Renato Veqiovani no seu exce 
lente artigo "Arte e tecniea na tela do cotnputador" 
que saiu no Micro Sistemas de dezembro de 1983 "que 
o desenho, ou a ilustragao, e antes de mais nada 
uma questao cultural e de formaqao intelectual". 

Se por uni lado a sociedade em certas re - 
gioeSj impoe padroes eticos e morals que inibem o 
desenvo1vimento dessa arte ainda nos primeiros anos 
das pessoas, tambem precisa ser ressaltado que a 
condiqao de poder se expressar atraves de figuras 
pode ser aprendida pois nao depende exclusivamente, 
de uma predisposi q ao natural ou aquilo que chamam 
de dom. 

0 nosso filho Sergio adorou o artigo de Re 
nato Degiovani e elaborou urn programinha com uma 
pequena animaqao. 
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A voce, recomendo que de alguma forma ad- 
quira a Micro Sistemas de dezerabro/1983 e entao 
baseando-se nesse programa podera fazer muitos ou- 
tros lindos desenhos. 

Com isto, de uraa forma ou outra estara se 
revelando a sua sensibilidade e que esta bem den- 
tro do seu Zntimo. 


Al vai o prograttinha 


1 PRINT AT 10,0;" 

10 PRINT AT 1, 1; "QQ " 

20 PRINT AT 2, 1; '•aa" 

30 PRINT AT 3, 1; "BBC" 

40 PRINT AT 4, 1; "BBED" 

50 PRINT AT 5, 0; BIB] " 
60 PRINT AT 6, 0; -aasaE' 
70 PRINT AT 7, 1; -uncoo 
80 PRINT AT 3, 0; "Qaaa" 

85 FOR C = 1 TO 10 - 

86 NEXT C 

90 PRINT AT 1, 1; ••BO •• , 

93 FOR C = 1 TO 20 / 

94 NEXT C -- ' j 

100 PRINT AT 1, 1; -taa- / 

103 FOR C - 1 TO 20 t 

104 NEXT C -' / 

110 PRINT AT 1, 1; ••□OB" 

113 FOR C = 1 TO 20 / / 

114 NEXT C —- ' / 

120 PRINT AT 1, 1; •■□□" / 

123 FOR C - 1 TO 20 / 

124 NEXT C -:- ' 


BY SERGIO MIRSHAWKA - ANDROlDE 


e uma pausa durante a 
qual muda uma parte 
do desenho sem haver 
,f balan$o"na tela 


111 


130 PRINT AT 3, 1; "BBC" 

135 FOR C = 1 TO 20 

136 NEXT C 

140 PRINT AT 3, 1; -BBC" _ 

160 PRINT AT 6, 0; ■■onaao - 
163 FOR C = 1 TO 20 
165 NEXT C __ 

190 PRINT AT 6, 0; "OaaDa- 
200 PRINT AT 5,0; " BGIBOiB * 
210 GOTO 10 




24. MOSAICO ALEATORIO 



Uma das coisas q u e lhe dara mais prazer re 


verenciada leitora ou respeitado leitor e conseguir 
apos teclar urn programa, analisa-lo, entende-lo e 
eventualmente modifica-lo obtendo com isto muito en 
sinamento na arte de dorainar o seu TK-85 via 1 in- 
guagem BASIC. 

Teele o programa "MOSAICO ALEATORIO" e exe 
cute-o no modo SLOW tendo muita paciencia ate qne 
aparega o desenho todo. 

1 RAND 

10 LET A = INT(END*4) - 2 
20 LET B = INT(RND*4) - 2 
30 LET X = INT(RND*42) 

40 LET Y = INT(RND*42) 

50 PLOT X + 10, Y 

60 PLOT 52 - X, 41 - Y 

70 PLOT 52 - Y, 41 - X 

80 LET Y = Y + B 

90 LET X = X + A 

100 IF X < 0 THEN LET X = 0 
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110 IF Y <0 THEN LET Y = 0 

120 IF X > 41 THEN LET X = 41 

130 IF Y > 41 THEN LET Y = 41 

140 IF X = 0 OR X = 41 THEN LET A = -A 

150 IF Y = 0 OR Y = 41 THEN LET B = -B 

160 GOTO 50 


Comentario: 

Tente agora mudar urn pouco esse progra - 



cipado dos nossos gastos ao longo do mes desde que 
a gente advinhar como vao subir os pregos. 


Esse programa e muito flexlvel e pode ser 
expandido para qualquer tipo de orgaraento. 

Alguraas contas voce pode pagar de 2 em 2 
meses (depositos devidos da casa propria), outras 
por mes (contas de luz, agua, gas, etc.), outras 
diariamente (leite, pao, etc;)» outra por semana 
(combustlvel, alimentagao) etc. 

No programa "CONTROLANDO" todas as "ex - 
pressoes" de gasto serao convertidas para a base 
mes . 

0 segredo desse programa esta em entender 
a fungao VAL. 

Com o VAL pode-se calcular o valor de um 

STRING. 

No conjunto alfabetico F$( ) sao guarda- 
das as formulas para converter os numeros que en¬ 
train em seus equivalentes mensais. 

Por exemplo na linha 110 temos F$(5) = 
,, G(J)/2" e G(J) e o gasto no Item J, nesse caso 
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pagamento da divida da casa propria que e de dois 
em dois meses. 

Portanto tem-se um gasto bimensal e por 
isso ele aparece dividido por dois. 

Ja na linha 130 temos F$(6) = "4.3*G(J) M 
e G(J) que e um gasto semanal em "OUTRAS (DESPE- 
SAS) n e multiplicado por 4.3 pois o mes tern apro- 
ximadamente 4.3 semanas. 

Ja na linha 70 temos um gasto diario 
F$(3) e por isso multiplicamos F$(3) por 30. 

Com VAL F$(J) obtemos o valor de G(J) na 
base mensal. 

0 uso da funqao VAL, de variaveis coleti- 
vas e laqos FOR-NEXT torna os programas b em mais 
cur tos . 

10 DIM G(6) 

15 DIM P$ (6,16) 

20 DIM F$ (6,8) 

25 LET P$(l) = "ROUPAS" 

30 LET F$(1) = M G(J)" 

40 LET P$(2) = "ALIMENTOS" 

50 LET F$ (2) = ”4.3 * GCJ)’’ 

60 LET P$(3) = "LEITE/PAO" 

70 LET F$(3) = "30 * G(J)" 

80 LET P$(4) = "COMBUSTlVEL" 

90 LET F$(4) = "4.3 * G(J)” 

100 LET P$ (5) = "CASA PR0PRIA" 

110 LET F$(5) = "G(J)/2" 

120 LET P$(6) = "OUTRAS (DESPESAS)" 

130 LET F$ (6) = "4.3 * G(J>" 

140 PRINT "A SUA RENDA MENSAL 
150 INPUT R 


160 PRINT "R="; R 
170 FOR J = 1 TO 6 
180 PRINT P$(J) 

190 INPUT G(J) 

200 PAUSE 55 
210 CLS 

220 LET G(J) = VAL F$(J) 

230 LET R = R - G(J) 

240 NEXT J 
250 FOR J = 1 TO 6 

260 PRINT P$(J); U = ";G(J); "OU.M./MES" 

270 NEXT J 

280 IF R < -0.01 THEN GOTO 320 
285 LET R = INT ABS R 
290 IF R = 0 THEN GOTO 340 
300 PRINT "SOBRARAM AINDA: □" ;R; "OU.M. " 

310 STOP 

320 PRINT "VOCE ESTA A PERIGO. FICOUD"; 

325 PRINT "DEVEND0O"; ABS R; "OU.M NESSE MES" 

330 GOTO 310 

340 PRINT "UFA, UFA, DEU EM CIMA MAS VOCE NAO TEM UM 
TOSTAO SEQUER PARA COMPRAR UM PIRULITO" 

350 GOTO 310 

Comentario: 

Teste o seu programa para os seguintes da 
dos numericos. 


ITEM 

GASTO 

(U.M.) 

INTERVALO DE TEMPO 
PARA 0 PAGAMENT0 

OU COMPRA 

ROUPAS 

100000 

MENSAL 

ALIMENTOS 

87000 

SEMANAL 

LEITE/PAO 

940 

diSrio 

COMBUSTlVEL 

27000 

SEMANAL 

CASA PROPRIA 

580000 

BIMENSAL 

OUTRAS (DES- 



PESAS) 

113000 

SEMANAL 


Tabela 6 
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Sera que o seu gasto raensal e de 1394300? 

Se o rendimento R for de 1562000 sobram 
ainda 167.700 u.m. no fim do raes? 

Tente e veja se da istoIII 

0.1. - Urn programs bem complete e ja pronto para o 
seu TK sobre o contrple de despesa mensal aparece 
na Micro Sistemas N9 21 (junho/1983) e como nao po 
deria deixar de ser e de autoria de Renato Degiova 
ni . 

Parabens ao Renato por tanta colaboragao aos- 
"computamaniacos" e aos que nao sao mas logo se— 
rao., . 


0 metodo analitico que mais se utiliza ho 
je era dia para o calculo dos alimentos necessarios 
e adequados que devem ser ingeridos diariamente sem 
que com isso se provoque a indesejavel "engorda" e 
a tecnica da Programagao Linear. 

A necessidade semanal de um individuo de 
nutrientes era gramas pode ser resumida da seguinte 
f orraa 

Proteina — ao menos 500 
Carbohidratos — ao menos 1860 
Gorduras-— ao menos 404 

A questao e: era que quantidades e entre 
que alimentos devem ser distribuidos esses nutri¬ 
entes? 

£ obvio que para uma familia frugal ou pa 
ra os negocios ou ainda para a condigao geral da 
nagao o prego de cada alimento e um fator muito 
importante e deve ser levado era conta. 

Assim a pergunta que normalmente se faz e 
a seguinte: "quanto deve uma familia comprar de ca 
da alimento para satisfazer a dieta adequada e is- 
to ao meuor prego posslvel? 
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Para urn programs elementar no seu dieteti 
co TK-85 vamos adotar os alimentos indicados na Ta 
bela 7 onde os pre?os estao em u.m. (unidades uo- 
netarias). 


Alimento 

Prego 
(u.m.) 

1 pacote de carne moida 
(hamburger) de 500 g 

(H) 

142 

1 lata de atum de 

300 g 

(A) 

197 

1 saco de batatas de 

2,5 kg 

(B) 

107 

1 pote de manteiga de 

920 g 

(M) 

173 

1 litro de leite 

(L) 

67 


Tabela 7 


Vamos tambem adotar algumas resfri^oes 
tais como: came moida no maximo 5 pacotes, latas 
de atum no maximo 3, sacos de batata no maximo 5, 
potes de manteiga no maximo 3 e litros de leite no 
maximo 8. 

£ evidente que pode-se nao comprar nada 
de urn dado alimento e a primeira vista parece que 
estamos arranjando o cardapio para alguma solita— 
ria ou alguem que vive sozinho e se alimenta de 
"sandwiches". 

A restrigao economics e a de nao se gas- 
tar em hipotese nenhuma mais que 2000 u.m./pessoa x 
semana. 


Por sua vez para cada alimento da Tabela 7 
temos as seguintes gramas de nutrientes. 


Alimento 

Gramas 

de nutrientes 


Proteina 

(Nl) 

Carbohidrato 

(N2) 

Gordura 

(N3) 

Carne moida (500 g) 

H 

114 

- 

93 

Atum (300 g) 

A 

35 

- 

24 

Batatas (2,5 kg) 

B 

47 

540 

- 

Manteiga (920 g) 

M 

129 

99 

280 

Leite (1£) 

L 

34 

50 

42 


Tabela 8 


Bern e al vai o programs que nos permitira 
saber o que devemos comprar baseando-se apenas nes 
ses nutrientes e com isto estamos abrindo o cami- 
nho para que mais tarde voce inclua vitaminas, mi- 
perais e uma lista muito maior de alimentos . 


10 LET C = 0 
20 LET V = 2000 

30 PRINT "AGORA 0 SEU TK-85 VAI FAZER MUITOS CSLCULOS. 

SEJA PACIENTE QUE VAI VALER A PENA" 

120 FOR H = 0 TO 5 
130 FOR A = 0 TO 3 
140 FOR B = 0 TO 5 
150 FOR M = 0 TO 3 
160 FOR L = 0 TO 8 

170 LET N1 = 114*H + 85*A + 47 *B + 129*M + 34*L—-■ Proteina 

180 LET N2 = 540*B + 99*M + 50*L -- Carbohidrato 

190 LET N3 = 93*H + 24*A + 280*M + 42*L-— Gordura 

200 IF (N1 > = 500) AND (N2 >= 1860) AND (N3 > = 404) THEN 
GOTO 210 
205 GOTO 290 
210 LET C = C + 1 

220 LET G = 142*H +197*A + 107*B + 173*M + 67*L 
230 IF G> = V. THEN GOTO 235 ' este g Q 

240 LET V = G gasto 





122 


250 LET HI = H 
260 LET A1 = A 
270 LET B1 = B 
275 LET Ml = M 
280 LET LI = L 

285 REM ESSA COMBINAQAO fi INVllVEL 

290 NEXT L 

300 NEXT M 

310 NEXT B 

320 NEXT A 

330 NEXT H 

340 PRINT 

350 FOR I = 1 TO 32 
360 PRINT 
370 NEXT I 

380 PRINT "EXISTEMO"; C; ” OeSCOLHAS POSSlVEIS" 

390 PRINT 

400 PRINT "A ESCOLHA MAIS BARATA CUSTARA:"; V 
410 PRINT 

420 PRINT "COMPRE ENTAO:" 

430 PRINT HI; "OPACOTE(S) DE CARNE MOIDA" 

440 PRINT Al; "OLATA (S) DE ATUM” 

450 PRINT Bl; M OSAC0(S) DE BATATA” 

460 PRINT Ml; "OPOTE(S) DE MANTEIGA” 

470 PRINT LI; ”OLITR0(S) DE LEITE" 

480 STOP 

Comentavio: 

0 programa "DIETA” ilustra bem como um pro 
grama de micro pode ser 5til para uma dona de casa 
eliminando-se os_calculos demorados.^Kesse ^exemplo 
teraos 5184 solutes possiveis porem apenas 2120 

viaveis. Se colocassemos uns 15 . /1 d ® ver 1 

mos analisar provavelmente mais de 100000000 de ca 
sos 6 isto sem duvidd c trsb 3 Ibo p3-r e micro « 


I !(u 



Quern nao lembra o quanto o nosso idoso pro 


fessor de Fisica nos procurou doutrinar com a im- 
portancia e o uso correto das unidades de medida. 

Alias ate nas receitas elas sao importan 
tes apesar de que em certas situagoes o mestre .de 
Fisica as acharia estranhas e inconvenientes, para 
nao dizer erradas... 

0 que vent a ser uma xicara (.sao todas 
iguais)? 0 que vem a ser uma colher de sopa ou uma 
colher de cha? 

Todos colocam a mesma quantidade em uma 
xicara ou em uma colher? 

0 melhor e sempre em gramas!!! 

Voce ja leu uma receita em alemao cara 

leitora? 

Bem o nosso TK-85 "o grande cozinheiro" 
nos perraite efetuar as conversoes de uma para ou- 
tra medida e principalmente passar a gramas atra- 
ves do uso de uma balanga de precisao com o que se 
obtem os diversos pesos dos varios ingredientes de 
forma precisa e quern sabe levando a exaltagao e a 
euforia qualquer professor de Fisica. 
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10 PRINT AT 20,2; "***A RECEITA EXATA***" 

20 PAUSE 50 
30 FOR J = 1 TO 20 
40 SCROLL 
50 NEXT J 
60 CLS 

70 PRINT "QUAL £ 0 NtfMERO DE P0RQ5ES DA RECEITA ORIGINAL?” 
80 INPUT S 

90 PRINT "QUAL £ 0 NtMERO DE PORQOES QUE VOCE QUER?" 

100 INPUT N 
110 LET N = N/S 
130 CLS 

135 PRINT "AQUI ENTRAM AS QUANTIDADES NECESSARIAS O"5 
140 PRINT"PARA A RECEITA NA MEDIDA ANTIGA PARA CADA INGRE- 
DIENTE:" 

150 INPUT Q 

160 PRINT "UNIDADES: " 

170 INPUT Q$ 

180 CLS 

190 IF Q$<> "XICA" AND Q$<> "SOPA" AND Q$<> "CHA" AND 
Q$<> "GRAM" THEN GOTO 170 
200 IF Q$ = "XICA" THEN LET Q = Q*48 

210 IF Q$ = "GRAM" THEN LET Q = Q*0.21 

220 IF Q$ = "SOPA" THEN LET Q = Q*3 

230 LET Q = Q*N 

240 PRINT INT(100*Q)/100; "DCOLHERES DE CHA” 

250 PRINT INT(100*Q/3)/100; "OCOLHERES DE SOPA" 

260 PRINT INT(100*Q/48)/100; "OXICARAS" 

270 PRINT INT(476*Q)/100; "0GRAMAS" 

280 PRINT AT 20,3; "VOCE VAI ENTRAR COM MAIS DADOS?" 

290 INPUT R$ 

300 IF R$ = "SIM" THEN GOTO 130 
310 STOP 


Comentario $: 

Nesse programs para facilitar as coisas 
todas as quantidades sao convert id as para colhe- 
res de cha antes de serem processadas (linhas 200- 
220 ) , 

Pela mesma razao ou seja para dar uma vi- 
sao global e simples a nova quantidade e impr'essa 
nas quatro unidades inclusive naquela que entrou. 

Cabe a voce escolher aquela que gostamais 
ou que seja mais pratica aplicar na receita ou na 
sua forma de cozinhar. 

Ao se teclar XICA a variavel Q$ tera o 
valor XICA e se voce escrever agora CHICARA ou me 
mo XICARA que apesar de serem a mesma coisa, ver 
que o seu TK-85 nao conhece o Pequeno (Grande) Di- 
cionario Brasileiro da Lingua Portuguesa e ira per 
guntar pelo unico nome que conhece e nos usamos 
a abreviatura XICA. 

0 mesmo foi feito para colher de sopa com 
a palavra "SOPA", para colher de cha com a palavra 
"CHA" e para grama com a abreviatura GRAM. 

Cuidado pois com o qud entrar na linha 
170 pois nao sera entendido na linha 190 e voce fi 
cara em urn LOOP fitotogioo . 

Finalmente, nem nos e nem o progessor de 
Fisica gostaria da seguinte medida 

"coloque 7.35683549 colheres de cha 

de agucar" 

e e por isso que utilizamos a precisao ate 2 casas 
decimals (linhas 240-270), 


a>\ i cn 
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Teste o seu programinha para um trecho de 
uma receita para fazer uma "galinhada 1 que da para 
5 pes s oas . 


GALINHADA 


1,5 kg de pedagos de galinha 


4 colheres de sopa de oleo 

1 colher de sopa de salsa 
picad inha 

4 xicaras de arroz limpo e 
1avado 


Transformar es- 
sa unidade (kg) 
em colheres de 
cha e dose, mas 
aqui vale tudol? 


Essas unidades se — 
rao transformadas 
entre outras coi- 
sas em colheres de 
cha e gramas 


0.1. - Recei-tas da Vovo 3 digo do TK-85 


a) Resfriado-~Mel com liraao 

b) Dor nos rins-—Folha de abacate com casca de 

mag a 

c) Tosse, bronquite, rouquidao-—Mel e agriao 

d) Os netinhos fazem pipi na cama -—Cha de folha 

de pitanga 

e) Insonia -—- Cha de alface antes de deitar 

f) Sistema nervoso-—Cha de erva cidreira, do 

quintal claro ll ! 


Deite-se no colo da v 


vo e adormega, embala 
do-se na cadeira de b 


g) Tristeza no coraqao 


Ol Cl <31 



Esse programa calcula o custo de uma tor- 
ta e o custo de uma porgao da mesma. 

Para cada ingrediente e fornecido o custo 


unitario, a quantidade comprada, a quantidade usa- 
da na receita e o numero de unidades de receita 
por unidade comprada. 

Como exemplo para a cara leitora ou caro 
amigo,elaboramos um programa para uma pequena tor- 
ta de morangos,que sera servida em 10 porgoes. 

Qual seria o custo da torta e o custo de 
uma porgao. 

Qual e o custo da porgao se servirmos 15 
pessoas com a torta preparada? 

Utilize para o teste do programa a seguin 
te receita assim como os respectivos fatores de 
conversao e os pregos por ingrediente. 
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Receita de uma torta de morangosque 
permite obter 10 generosas porijoes 


Quatitidade necessa 
ria (ingrediente) 

Fator de conversao 

Alimento(com 
prado em u .m ) 

1) 3 xicaras de 
farinha de 
trigo 

5 xlcaras/kg 

300/kg 

2) 3 colheres de 

cha de fermen- 
to em po 

0,53 colheres de 
cha/g 

250/100g 

3) j xlcara de 
agucar 

4 xicaras/kg 

1400/5 kg 

4) ^ xicara de 

manteiga 

4 xicaras/kg 

1500/kg 

5) 1 colher de 

cha de sal 

210 colheres de 
cha/kg 

130/kg 

6) 1 ovo 

12/duzia 

350/duzia 

2 - 

7) -k xicara de 

7 leite 

5 xicaras/litro 

300/litro 


8) 2 caixas peque— - 1000/caixa 

nas de morangos 


9) litro de creme — 2000/litro 

de leite bati- 
do 


Xabela 9 
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5 LET G = 0 

10 PRINT "CUSTO DE UMA RECEITA"' 

20 PRINT 

30 PRINT "NtJMERO DE INGREDIENTES" 

40 INPUT N 
50 FOR J = 1 TO N 
55 PRINT 

60 PRINT "INGREDIENTEO"; J; "s’* 

70 PRINT "CUSTO DO ALIMENTO VENDIDO NO COMERCIO:"; 

80 INPUT C 
85 PRINT C 

90 PRINT "NtJMERO DE UNIDADES DO ALIMENTO:"; 

95 INPUT U 
100 PRINT U 

110 PRINT "NtJMERO DE UNIDADES DA RECEITA PELAS UNIDADES 
EM QUE E VENDIDO O ALIMENTO:"; 

115 INPUT F 
120 PRINT F 

125 PRINT "NtJMERO DE UNIDADES NECESSXRIAS NA RECEITA:"; 
130 INPUT R 
135 PRINT R 

140 LET G = G + C/U/F *R 
150 NEXT J 
155 PRINT 
160 PRINT 
170 PRINT "NtJMERO DE PORgOES" 

180 INPUT P 
190 PRINT P 

200 PRINT "0 CUSTO TOTAL PARA A RECEITA t : □ "; 

I NT (G*100 + . 5) /100 ; "OU.M." 

205 PRINT 

210 PRINT "0 CUSTO POR FORgAO SERVIDA £:0"; INT(G/P*100 
+.5)/100 
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230 PRINT M V0C£ QUER MUDAR 0 NaMERO DE PORQOES (S/N)?" 

240 INPUT R$ 

250 IF R$ = "S'* THEN GOTO 155 
260 STOP 

0 . 1 . 1 

Agora voce esta apto a fazer o calculo de qual- 
quer obra gastronomica que pretender realizar e nao esquega 
que ha quem diga que se prende o(a) companheiro(a) pela bo¬ 
cal ♦ • 

0 . 1 . 2 

Para voce aplicar o programa no caso particular 
da torta de morango e com os nossos dados nao esquega de ali 
raentar o seu TK-85 com os seguintes dados: 




0 Natal renova as esperanjas... 

Nao existe uma pessoa que nao tem uma boa 


lembranga do Natal! \ 

Quem nao poe no Natal uma esperanga? 

A casa limpa, as luzes acesas, a mesa co- 
locada, a ceia pronta. 

X volta da arvore toda enfeitada, ilumina 
da, os presentes . 

Vai comegar a festa e e a hora certa, de 
mandar essa mensagem feita pelo Sergio ou seja o 
programa "NATALINO" atraves do seu TK-85. 

5 GOTO 299 

6 CLS 

10 FOR F = 40 TO 31 STEP -1 
20 PLOT 1, F 

30 NEXT F 

31 FOR F = 2 TO 6 
33 PLOT F, 40 

35 NEXT F 

36 FOR F = 2 TO 4 
38 PLOT F, 36 
40 NEXT F 


Aqui sai im- 
pressa a le- 
tra F 
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Aqui sai im- 
pressa a le- 
tra E 


Aqui sax lm- 
i a 

pressa a 1. 
letra L 


Aqui sai im- 
pressa a le¬ 
tra I 


Aqui sai itn- 
pressa a le¬ 
tra Z 


Aqui sai im- 
pressa a le¬ 
tra N 


45 FOR E = 10 TO 15 

46 PLOT E, 40 

47 PLOT E, 36 

48 PLOT E, 31 
50 NEXT E 

52 FOR E = 40 TO 31 STEP - 1 

53 PLOT 10, E 

54 NEXT E 

, 55 FOR L = 40 TO 31 STEP - 1 


56 PLOT 19, L 

57 NEXT L 

59 FOR L = 19 TO 25 

60 PLOT L, 31 

62 NEXT L 

63 PLOT 29,41-— 


Esse e o ’’pingo" do I 


64 FOR I = 39 TO 31 STEP - 1 

65 PLOT 29, I 

66 NEXT I 

67 FOR Z = 33 TO 39 

68 PLOT Z, 40 
70 PLOT Z, 31 

72 NEXT Z 

73 FOR Z - 39 TO 33 STEP - 1 

75 PLOT Z, Z 

76 NEXT Z 

' 77 PLOT 33, 32 

80 FOR N = 16 TO 6 STEP - 1 

81 PLOT 2, N 

82 PLOT 9, N 

83 NEXT N 

84 PLOT 3, 15 

85 PLOT 4, 14 
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86 PLOT 5, 13 

87 PLOT 6, 12 

88 PLOT 6, 11 

89 PLOT 6, 10 

90 PLOT 6, 9 

91 PLOT 6, 8 

92 PLOT 7,7 

93 PLOT 8,6 


Aqui sai im- 
pressa a 1? 
letra A 


95 FOR A - 16 TO 6 STEP - 1 

96 PLOT 14, A 

97 PLOT 22, A 

98 NEXT A 

100 FOR A = 14 TO 22 

101 PLOT A, 16 

102 PLOT A, 10 

103 NEXT A 


Aqui sai im- 
pressa a le¬ 
tra T 


105 FOR T = 30 TO 38 

106 PLOT T, 16 

107 NEXT T 

108 FOR T = 16 TO 6 STEP - 1 

109 PLOT 34, T 

110 NEXT T 


Aqui sai im- 
pressa a 29 
letra A 


111 FOR A = 16 TO 6 STEP - 1 

112 PLOT 43, A 

113 PLOT 51, A 

114 NEXT A 

120 FOR A = 43 TO 51 
130 PLOT A, 16 

140 PLOT A, 10 

141 NEXT A 
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150 FOR L = 16 TO 6 STEP - 1 


Aqui sai im- 
pressa a 2? 
letra L 


Aqui sai a 
mensagem do 
seu TK 


151 PLOT 55, L 

152 NEXT L 

153 FOR L = 55 TO 61 

154 PLOT L, 6 
,155 NEXT L 
200 PAUSE 250 

299 CLS - 


lirapeza da tela 


300 PRINT "ESTAMOS NA VESPERA DO NATAL POR" 
310 PRINT "ISSO DESEJO A TODOS UM FELIZ NA-" 
320 PRINT "TAL E PROSPERO ANO NOVO - mMMh 
,333 PRINT " 


O SEU COMPUTADOR PESSOAL 


Aqui sai o 
nome do au 
tor ''pis-* 
cando" 


'334 FOR S = 1 TO 30 

345 PRINT AT 10, 10; "BY SERGIO' 

346 PRINT AT 10, 10; " 


347 NEXT S 

348 PAUSE 200 

,349 GOTO 6 - 


BY SERGIO 


A volta ao inicio... 


30. RETIRANDO PALITOS 



Eis finalmente um jogo no qual toda a sua 


destreza e vitorias do passado em outros jogos no 
TK-85 nao servem para nada. 

Agora, se voce comeqar, ira perder sempre 
do seu TK-85. 

Tem-se inicialmente 21 palitos de fosforo 
e voce (J) ou o seu TK-85 (M) retiram cada ura e na 
sua vez de 1 a 3 palitos. 

0 jogador que ficar com o ultimo palito 
para retirar perde o jogo. 

Em contraste com os outros jogos nos quais 
voce mais ganha do que perde do seu TK-85 (aprese 
tadas no livro TK-Lembrando), aqui se voce for opr 
meiro a jogar e escolher o grau de dificuldade 4 
bau, bau, blau, blau e voce perde... 

Um programa analogo aparece no interes- 
sante livro de Carlos Eduardo Rocha Salvato "Cole- 
qao de Programas vol. I" publicado pela Editors 
Moderns em conjunto com a Micromega e no livro do 
Delio S. Lima tambem se encontra um programa seme 
lhante a esse. 

Mas al vai o nosso com um aspecto visual 
bem interessante nas mensagens de vitoria que apa- 
recem na tela. 


n-*- its 
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10 RAND 
20 LET N = 21 
30 SCROLL 
35 SCROLL 

40 PRINT "GRAU DE DIFICULDADE? 1,2,3,4”; 

45 INPUT D 

50 IF(D < 1) OR (D > 4) THEN GOTO 45 
55 PRINT M OD = M ; D 
58 GOSUB 1000 
60 SCROLL 
65 SCROLL 

70 PRINT "QUEM COMEgA VOCf(J) OU EU (M)?"; 

80 INPUT A$ 

85 PRINT A$ 

88 GOSUB 1000 

90 IF A$ = "M" THEN GOTO 214 

100 CLS 

113 PAUSE 200 

125 PRINT 

130 PRINT "QUANTOS PALITOS VAI TIRAR SEU ’HUMANOIDE*?" 
135 INPUT P 

140 IF P <1 OR P > 3 THEN GOTO 135 

145 PRINT P 

150 FOR I = 1 TO P 

160 IF N = 0 THEN GOTO 385 

170 LET N = N - 1 

180 NEXT I 

190 PRINT "RESTAM AGORAO"; N; "OPALITOS" 

195 FOR L = 1 TO N 
200 PRINT "0”; 

205 NEXT L 
210 PAUSE 100 
214 CLS 


215 PRINT "£ A MINHA VEZ E SOU A SUPER-MAQUINA" 

217 PRINT "EXISTEMO"; N; "OPALIT0S NO MOMENTO." 

220 IF (N = 21) OR (N = 17) OR (N = 13) OR (N = 9) OR 
(N = 5) OR (N = 1) THEN GOTO 280 
225 LET T = 4 - P 

230 IF D = 4 THEN GOTO 250 

235 IF D = 3 THEN GOTO 255 

240 IF D = 2 THEN GOTO 260 

245 GOTO 265 

250 IF (N < 17) AND (N >13) THEN LET T = N - 13 
255 IF (N < 13) AND (N>9) THEN LET T = N - 9 
260 IF (N < 9) AND (N >5) THEN LET T f N - 5 
265 IF (N < 5) THEN LET T = N - 1 
270 GOTO 290 

280 LET T = INT(RND*3) + 1 

285 IF T > N THEN LET T = 1 

290 PRINT "EU TK-85 TIRElO"; T; "OPALITOS" 

295 FOR I = 1 TO T 
300 IF N = 0 THEN GOTO 405 
310 LET N = N - 1 
320 NEXT I 

330 IF N = 1 THEN GOTO 385 

340 IF N = 0 THEN GOTO 405 

345 PRINT "RESTAM AGORA 0"; N; "QPALITOS" 

350 FOR R = 1 TO N 
355 PRINT "C"; 

360 NEXT K 

380 GOTO 113 

385 PRINT "0" 

390 PRINT "C" 

392 SCROLL 

395 PRINT "FICOU UM PALITO - EU TK-85 GANHEI" 
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400 GOTO 392 
405 SCROLL 

410 PRINT "GANHOU HUMANSlDE - PARABENS" 

420 GOTO 405 

1000 FOR J = 1 TO 24 

1010 SCROLL 

1020 NEXT J 

1030 RETURN 



Este e urn programs muito interessante pa¬ 


ra distrair as visitas num dia frio ou de chuva e 
quando a festa deveria ser no minimo no jardim e 
ao ar livre se posslvel!! I 

Alias com isto, alem de se ter a vantagem 
de nao se sujar a casa os convidados aproveitam pa 
ra respirar o ar puro, quando isto e posslvel edes 
de que, voce nao more em algum apartamento minha 
cara(o) leitora(o) ! 

Neste programs os muitos dados que serao 
fornecidos entrant em forma codificada na variavel 
C que a maior parte das vezes tomara os valores 1 
e 2. 

0 programa e auto explicativo e se baseia 
em alguns cuidados que voce deveria tomar com o 
fumo, com o excesso de peso, com a tensao,; com o 
seu rendimento, com o seu "status” intelectual,etc. 

Tecle logo o programa e veja se voce tem 
muito pela frente para viver ou entao tome os devi 
dos cuidados para aumentar a sua idade (I) espera 
da de vida aqui neste lindo planeta. 

0 seu TK-85 e infallvel, mas o programa 
nao e tao brilhante e pode ocorrer alguma distor- 
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$ao entre a sua idade real e o que preve o seu TK- 
35 via este programa. 

Na realidade ele funciona muito bem para 
idade real ate 65 anos. 

10 REM *ESPERANQA DE VIDA* 

20 PRINT "CSLCULO DA ESPERANQA DE VIDA PARA MAIORES DE 
IDADE - 18 ANOS PARA FRENTE" 

30 FOR K = 1 TO 32 
35 PRINT 
40 NEXT K 

50 PRINT "TECLE (1) PARA SIM, (2) PARA NAO, NAS PERGUNTAS 
A SEREM RESPONDIDAS" 

60 LET I = 70 

70 PRINT "VOCE t HOMEM?" 

75 INPUT C 

80 IF C = 1 THEN GOTO 95 
85 LET 1=1+4 
90 GOTO 100 
95 LET 1=1-3 

100 PRINT "VOCE VIVE EM UMA CIDADE COM MAIS DE UM MILHAO 
DE HABITANTES?" 

103 INPUT C 

105 IF C = 1 THEN GOTO 120 

110 PRINT "VOCE VIVE EM UMA PEQUENA CIDADE DE MENOS DE 
20000 HABITANTES?" 

112 INPUT C 

115 IF C = 1 THEN GOTO 130 

117 GOTO 140 

120 LET 1=1-2 

125 GOTO 140 

130 LET 1=1+2 

140 PRINT "CASO 0 SEU TRABALHO £ ATR&S DE UMA ESCRIVANINHA 
DIGITE (1)" 


150 PRINT "CASO 0 SEU TRABALHO REQUER ESFORQO FlSICO 
DIGITE (2)" 

160 INPUT C 

170 IF C - 1 THEN GOTO 190 
180 LET I = I + 3 
185 GOTO 195 
190 LET I = I - 3 

195 PRINT "VOCE FAZ EXERCfCIOS FtSICOS NO CLUBE OU EM 
CASA?" 

200 INPUT C 

205 IF C = 2 THEN GOTO 250 

215 PRINT "VOCE FAZ EXERClCIOS FlSICOS VIOLENTOS tMAIS 
DO QUE 3H POR SESSAO) E COM PELO MENOS 3 SESSOES 
POR SEMANA?" 

220 PRINT "DIGITE (1) EM CASO POSITIVO E (2) EM CASO 
CONTRXriO" 

222 INPUT C 

225 IF C = 1 THEN GOTO 240 
230 LET I = I + 2 
235 GOTO 250 
240 LET I = I + 4 

250 PRINT "VOCE VIVE COM UM(.A) COMPANHEIRO(A) OU ESPOSO 
(A)?" 

252 INPUT C 

255 IF C = 1 THEN GOTO 290 

260 PRINT "QUANTAS DECADAS (D) VOCE VIVE SOLITARI0(A) 
DESDE OS 18 ANOS?" 

265 INPUT D 
270 LET I = I - D 
280 GOTO 300 
290 LET I = I + 5 

300 PRINT "VOCg DORME MAIS DE 9H POR DIA?" 

305 INPUT C 
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310 IF C = 2 THEN GOTO 320 
315 LET I = I + 1 

320 PRINT "CASO VOCE SEJA AGRESSIVO E FACILMENTE 
IRRIT&VEL TECLE ( 1 )" 

330 PRINT SE VOCE E "CUCA" FRESCA E SEMPRE RELAXADO DAS 
TENSOES DIGITE (2)" 

335 INPUT C 

340 IF C = 1 THEN GOTO 350 

345 IF C = 2 THEN GOTO 360 

348 GOTO 365 

350 LET 1 = 1-3 

355 GOTO 365 

360 LET I = I + 2 

365 PRINT "VOCg SE CONSIDERA UMA PESSOA FELIZ?" 

370 INPUT C 

375 IF C = 1 THEN GOTO 390 
380 LET 1=1-2 
385 GOTO 395 
390 LET I = I + 1 

395 PRINT "VOCg GANHA MAIS DO QUE QUINZE SALARIOS MtNIMOS 
POR mEs?" 

400 INPUT C 

402 IF C = 2 THEN GOTO 410 
404 LET 1=1-2 

410 PRINT M SE VOCg TERMINOU 0 29 GRAU TECLE (1); CURSO 
SUPERIOR (2) E (0) EH CASO CONTRArIO" 

415 INPUT C 

420 IF C = 1 THEN GOTO 440 

425 IF C = 2 THEN GOTO 450 

430 GOTO 460 

440 LET I = I + 1 

445 GOTO 460 

450 LET I = I + 2 


460 PRINT "VOCE FOI MULTADO ESTE ANO POR EXCESSO DE 
VELOCIDADE?" 

462 INPUT C 

463 IF C = 2 THEN GOTO 465 

464 LET I - I - 1 

465 PRINT "VOCg TEM MAIS DE 60 ANOS E AINDA TRABALHA 
ATRAS DE UMA ESCRIVANINHA?" 

466 INPUT C 

470 IF G = 2 THEN GOTO 480 
475 LET I = I + 3 

480 PRINT "VOCg TEM ALGUM DOS 4 AVOS QUE VIVEU MAIS DE 
75 ANOS?" 

485 INPUT C 

490 IF C » 1 THEN GOTO 510 

500 GOTO 540 

510 LET I = I + 2 

520 PRINT "TODOS OS SEUS QUATROS AVOS ESTAVAM VIVOS 
AOS 70 ANOS?" 

525 INPUT C 

530 IF C = 2 THEN GOTO 540 

535 LET I = I + 6 

540 PRINT "O SEU PAI OU MSE MORRERAM DE UM ATAQUE DO 
CORAQAO ANTES DE 48 ANOS?" 

550 INPUT C 

560 IF C = 2 THEN GOTO 580 

570 LET I = I - 4 

580 PRINT "VOCE TEM ALGUM PARENTE (PAIS, IRMAOS) COM 
MENOS DE 50 ANOS COM PROBLEMAS DE CORAgAO, CANCER 
OU DIABETE?" 

590 INPUT C 

600 IF C = 2 THEN GOTO 620 

610 LET 1=1-3 

620 PRINT "TECLE ( 1 ) SE FUMA MAIS DE DOIS MAgOS DE CIGAR- 
ROS POR DIA, (2) SE FUMA E (0) SE NAO FUMA" 
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625 INPUT C 

630 IF C = 1 THEN GOTO 650 

640 IF C = 2 THEN GOTO 670 

645 GOTO 680 

650 LET I = I - 7 

660 GOTO 680 

670 LET I = I - 4 

680 PRINT "VOCE BEBE 0 EQUIVALENTE A 1/7 DE UMA GARRAFA DE 
CACHAgA POR DIA OU MAIS?" 

690 INPUT C 

700 IF C = 2'THEN GOTO 720 
710 LET I = I - 1 

720 PRINT "SE 0 SEU PESO ESTA ACIMA DO NORMAL MAIS DE 20 
KG TECLE (1); CASO ESTEJA NA FAIXA DE 10-20 KG TECLE 
(2); CASO ESTEJA NA FAIXA DE 3-10 KG TECLE (3) E EM 
CASO CONTRARIO TECLE (0)". 

725 INPUT C 

730 IF C = 1 THEN GOTO 750 

735 IF C = 2 THEN GOTO 760 

740 IF C = 3 THEN GOTO 770 

745 GOTO 780 

750 LET I = I - 7 

755 GOTO 780 

760 LET I = I - 4 

765 GOTO 780 

770 LET 1=1—2 

780 PRINT "PARA 0 SEXO MASCULINO TECLE (1) CASO VOCE FAQA 
UM "CHECK-UP" ANUAL" 

790 PRINT "PARA 0 SEXO FEMININO TECLE CD SE VOCE FAZ UM 
EXAME GINECOLGGICO COMPLETO ANUALMENTE" 

795 INPUT C 

800 IF C = 2 THEN GOTO 820 
810 LET I = I + 2 


820 PRINT "SE VOCE TEM ENTRE 18-42 ANOS TECLE (1), ENTRE 
42-52 TECLE (2), ENTRE 52-65 TECLE (3), >65 TECLE 
QUALQUER OUTRO NtfMERO" 

830 INPUT C 

840 IF C = 1 THEN GOTO 890 

850 IF C = 2 THEN GOTO 910 

860 IF C = 3 THEN GOTO 930 

870 GOTO 950 

880 GOTO 1000 

890 LET 1=1+2 

900 GOTO 1000 

910 LET I = X + 3 

920 GOTO 1000 

930 LET I = I + 4 

940 GOTO 1000 

950 LET I = I + 5 

1000 FOR K = 1 TO 32 

1010 PRINT 

1020 NEXT K 

1030 PRINT "A SUA ESFERANQA DE VIDA E:0"; I; "OANOS" 

1040 FOR K = 1 TO 32 

1050 PRINT 

1060 NEXT K 

1070 STOP 




toriamente entre 1,2,3,4,5,6,7,8 ou 9. 

0 programa "ADVINHANDO" permite que voce 
tente descobrir este nuroero, no menor numero de 
tentativas. 

Ai vai o programa 

10 PRINT "**ADVINHANDO**” 

15 DIM A(7) 

20 PRINT "**ACERTE 0 MEU NCMERO**" 

25 PRINT 

30 LET K = 0 

40 FOR N = 1 TO 3 

50 LET A(N) = INT(9*RND) + 1 

60 IF N = 1 THEN GOTO 85 

70 FOR T = 1 TO N - 1 

75 IF A(N) = A(T) THEN GOTO 50 

80 NEXT T 

85 NEXT N 

90 PRINT "ENTRE COM UM NtJMERO INTEIRO DE TRfiS ALGARISMOS" 
95 PRINT "ENTRE COM UM ALGARISMO DE CADA VEZ" 

100 LET K = K + 1 
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105 PRINT "ESTA £ A TENTATIVAO"; K 
110 LET C = 0 


150 NEXT N 

155 FOR N = 1 TO 3 

160 IF A(N) = A(N+3) THEN LET C = C+l 
170 IF A(N) = A(N+ 3) THEN LET T = T - 1 
180 FOR R = 4 TO 6 
185 IF A(N) = A(R) THEN LET T = T+l 
190 NEXT R 
195 NEXT N 

200 IF C = 3 THEN GOTO 250 
210 PRINT "POSIQOES CORRETAS = c )/ 

220 PRINT "POSigOES TROCADAS = T . 

230 PRINT 
240 GOTO 100 

250 PRINT "ACERTOU TUDO EMO"; K; ”0 TENTATIVAS" 
260 GOTO 20 

270 PRINT "ESTA £ A RESPOSTA" 

280 FOR J = 1 TO 3 
290 PRINT A(J); "O"; 

300 NEXT J 
310 STOP 



120 LET T = 0 
130 FOR N = 4 TO 6 
140 INPUT A(N) 

145 IF A(N) =0 TVm GOTO 270 
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Este programa oferece-nos a oportunidade 
de falar um pouco da Fundagao Armando Alvares Pen- 
teado (FAAP). 

Na FAAP e justo expressar a gratidao ao 
ilustre casal Lucia e Roberto Pinto de Souza diri- 
gindo a Instituigao de Ensino Superior com discer- 
nimento objetivo, com aguda perspicacia e com gran 
de sensibi 1 idade em relagao a melhor forma de le- 
var a Educagao e a Culture aos jovens. 

Dentro desse contexto uma das ferramentas 
mais exploradas e o computador e isto ja durante 
os ultimos quinze anos. 

Hoje a FAAP possui um excelente Centro de 
Processamento de Dados (C.P.D.) dirigido peloprof. 
Sergio Sonnino e um grande Centro de Informatica 
que tern a sua frente o prof. Simpson Kalmus. 

Todos os alunos da FAAP tern livre acesso 
para realizar ou serem auxiliados em qualquer tra- 
balho didatico que necessite do computador tanto 
no CPD como no Centro de Informatica. 

Existem microcomputadores de diversas mar 
cas e variado desempenho tanto no Centro de Infor¬ 
matica como outros alocados nas diversas Faculda- 
des que compoem a FAAP e entre elas destaca-se a 
Faculdade de Engenharia na qual tenho a satisfa- 
gao de trabalhar desde 1967. 

E de um programa desenvolvido pelo prof. 
Simpson que extraimos a saida que ilustra o pro¬ 
grama "1984-FAAP-2000" 

Que tal saber qual e o dia da semana de 
uma data qualquer? 

0 programa "1984-FAAP-2000" permite que 
se conhega o dia da semana de qualquer data e como 


o passado nao interessa tanto, aplique o n^esrno pa¬ 
ra o futuro principalmente para alguma data impor- 
tante do ano 2000. 

Quern nao gostaria de emplacar o ano 2000? 
Para uma verificagao do programa utilize 
as duas folhinhas apresentadas. 

Ai vai o ultimo programa do TK-Lembrando : 

1 CLS 

5 FOR J = 1 TO 4 

10 PRINT "*1984-FAAP-2000*"; 

15 NEXT J 

17 PRINT 

18 PRINT 

20 PRINT "ENTRE COM 0 DIA, MES E ANO NO FORMATO"; 

25 PRINT "ODD, OMMpAAAA" 

28 PRINT "PARA TERMINAR ENTRE COM 0, 0, 0 EM ALGUM DOS 
DADOS 

30 PRINT 
35 INPUT D 
40 INPUT M 
50 INPUT A 

53 PRINT D; '7"; M;"/"; A 

55 IF D = 0 OR M = 0 OR A = 0 THEN GOTO 190 

60 IF M > 2 THEN GOTO 75 

65 LET M = M + 12 

70 LET A = A - 1 

75 LET N = D + 2*M + INT (.61*CM+1) + A + INT(A/4) S - 
INT (A/100) + INT (A/400)) + 2 
80 LET N = INTtCN/7 - INT(N/7)) * 7 + .5) 

90 IF N = 0 THEN LET D$ = "SSBADO" 

100 IF N = 1 THEN LET D$ = "DOMINGO" 

110 IF N = 2 THEN LET D$ = "SEGUNDA" 
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120 IF N = 3 THEN LET D$ = "TERQA" 

130 IF N = 4 THEN LET D$ = "QUARTA" 

140 IF N = 5 THEN LET D$ = "QUINTA" 

150 IF N = 6 THEN LET D$ = "SEXTA" 

160 PRINT D$ 

170 PAUSE 250 
180 GOTO 1 

190 PRINT "VOLTE A ME CONSULTAR SEMPRE QUE QUISER" 
200 STOP 


0*1* 1 No numero de dezembro de 1983 da Micro Sis 
temas saiu o "Programe seu calendario" de autoria 
de Jose Donizeti de Paula. 

£ uma variante muito interessante, e que 
serve para o TK-85,do nosso programa "1984-FAAP-2000". 

0.1. 2 - Na revista Micro Mundo (numero 2, abril de 
1983) na sec$ao Fontes, Andre Breitman apresenta 
uma versao muito interessante para se obter o ca¬ 
lendario. 

Alias o programa foi desenvolvido origi- 
nalmente para equipamentos compativeis com o TRS-80 
porem pode facilmente ser transformado para ser usa 
do nos equipamentos da Microdigital tanto para o TK 
85 como para o TK-2000. 

0•I * 3 - Ainda na revista Micro Mundo (numero 7, 
setembro de 1983) na secqao Fontes tern—se o progra 
ma "Calculo de datas" apresentado por Flavio Serra¬ 
no . 

6 muito interessante saber por exemplo 


quantos dias separam o dia do nosso aniversario e 
da nossa melhor amiga(o) do sexo oposto. 

Voce nao acha que isso e importante? 

0.1. 4 - Na Microhobby N? 0 (tnar^o de 1983) na pa- 
gina 6 voce encontra outros detalhes ainda sobre o 
calendario. 


O.I. 5 - Na Microhobby N9 2 (junho de 1983) o pro¬ 
grama do leitor e o "Calendario" de autoria de 
Edson Sauer Guimaraes. 



OUTRAS OBRAS DO AUTOR 


Caderno de elementos de computagao (Linguagem FORTRAN) 

Linguagem BASIC 

BASIC sem segredos 

IK-divertindo 

TK-lembrando 

TK-calculando 

Conhecendo e utilizando o TK 2000 
IK-2000 na matematica 
De um APPLE a sua vida 
Imprimindo maravilhas com a GRAFIX 
Brincando com o TRS-Color 
BASIC no TK 90X 

Conexao: GRAFIX-IBM PC e compatlveis 

Graficos no TK 2000 

Jogos e Desenhos no TK 2000 
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